Дана программа на языке Паскаль:

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

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