Дана программа ** языке Паскаль: program a4; var x, k1, k2:...

Question

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

program a4;

var x, k1, k2: integer;

begin

k1:=0

k2:=0

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

readln (x);

if x<0 then k1:=k1+1;</span>

if x<0 then k2:=k2+1;</span>

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;</span>

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

 

intil x=0;

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

end

 

 

 

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