Пользователь вводит числа с клавиатуры до тех пор, пока не введет число «0». После
ввода «0» программа выводит на экран количество положительных и отрицательных
введенных чисел.
ВАЖНО: написать программу с использованием цикла while
20 баллов даю
Ответы на вопрос
Ответил utis
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.
Ответил tima54827
0
спасибо
Новые вопросы
Другие предметы,
1 год назад
Химия,
7 лет назад
Физика,
7 лет назад
Математика,
8 лет назад
Математика,
8 лет назад