Question

Дана программа на языке Паскаль:program a4;var x, k1, k2: integer;begink1:=0k2:=0writeln (' Введите три числа');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Составьте блок-схему, соответствующую программе.Что является результатом работы программы?

Answer 1

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

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

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

Answer 2

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

 

 

 

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