Дана программа на языке Паскаль: 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='...

Question

Дана программа на языке Паскаль: 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='...

Дана программа на языке Паскаль: 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 Составьте блок-схему, соответствующую программе. Что является результатом работы программы?

Гость

Ответ(ы) на вопрос:

Гость

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 я думаю наверно так))))))))))))))))

Accepted Answer

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