Дана программа на языке паскаль: program a4; var x, k1, k2: integer; begin k1: =0 k2: =0 writeln (' введите три числа'); readln (x); if x< 0 then k1: =k1+1; if x< 0 then k2: =k2+1; intil x=0; writeln ('k1=',k1,'',k2=',k2) end составьте блок-схему, соответствующую программе. что является результатом работы программы?

у тебя программа неправильная. Не до конца понял, почему у тебя с какого-то бока стоит там какой-то intil x=0, если у тебя цикл, то должен был быть repeat сначала, потом уже Until.

проверь программу, паскаль ответ тебе не выдаст.

а блок-схема вот.

begin

k1:=0

k2:=0

writeln (' Введите три числа');

if  x<0 then k1:=k1+1;

if  x<0 then k2:=k2+1;(ЕЩЕ " ЧИСЛА)

intil x=0;

writeln ('k1=',k1,'',k2=',k2)

end

я думаю наверно так