Пользователь вводит числа с клавиатуры до тех пор, пока не введет число «0». После
ввода «0» программа выводит на экран количество положительных и отрицательных
введенных чисел.
ВАЖНО: написать программу с использованием цикла while
20 баллов даю
Ответы
Ответ дал:
0
program dlb;
var
p,o,n: integer;
begin
n := 1;
while n <>0 do
begin
readln(n);
if n >0 then
p := p + 1;
if n < 0 then
o := o + 1;
end;
writeln('Количество отрицательных чисел: ', o);
writeln('Количество положительных чисел: ', p);
end.
Ответ дал:
0
спасибо
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
9 лет назад