Дана программа на языке паскаль: program а4; var х, kl, k2: integer; begin kl : = о; k2 : = о; repeat writeln ('введите целое число'); readln (х); if х

103

300

Посмотреть ответы 2

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

Egor24690

Информатика

4,6(96 оценок)

Program a4; var x, kl, k2: integer; begin kl : = 0; k2 : = 0; x: =1; while x< > 0 do begin writeln ('введите целое число'); readln (x); if x< 0 then kl : = kl + 1; if x< 0 then k2 : = k2 + 1 end; writeln ('kl=', kl, ' ', 'k2=', k2) end. программа была написана с синтаксическими ошибками: a4 и х были записаны буквами, а вместо нулей 0 использовалась буква о. кроме того, конструкции if x< 0 then kl : = kl + 1; и if x< 0 then k2 : = k2 + 1 делают одно и то же, только с разными переменными. скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.