На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. если неотрицательных чисел нет, требуется вывести на экран «no». известно, что вводимые числа по абсолютной величине не превышают 10. программист написал программу неправильно, надо найти ошибку var p,i,x,count: integer; begin count : = 0; p : = 0; for i : = 1 to 4 do begin read (x); if x > = 0 then begin p : = p*x; count : = count+1 end end; if count > 0 then begin writeln(х); writeln(p); end else writeln('no') end

129

356

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

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

45087

Информатика

4,4(39 оценок)

/ * / * / * / во вложении

150 000+ пользователей

Оформить подписку