Написать программу с использованием оператора while в результате работы которой осуществляется ввод чисел и подсчёт количества введённых положительных и отрицательных чисел и их сумма. Ввод осуществляется до тех пор пока не будет введён ноль

Question

Информатика

Норшо

18 февраля, 03:14

Написать программу с использованием оператора while в результате работы которой осуществляется ввод чисел и подсчёт количества введённых положительных и отрицательных чисел и их сумма. Ввод осуществляется до тех пор пока не будет введён ноль

+5

Ответы (1)

Знаете ответ на вопрос?

Стуш · Answer 1

Program qZiP;

var n, k1, k2: integer;

begin

k1:=0;

k2:=0;

while 0 do

begin

write ('Введите целое число>>') ;

readln (n) ;

if n>0 then k1:=k1+1;

if n<0 then k2:=k2+1;

end;

writeln ('Введено:') ;

writeln ('положительных чисел - ', k1) ;

writeln ('отрицательных чисел - ', k2)

end.