Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и ПОДСЧЕТ кол-ва положительных и отрицательных чисел
Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и ПОДСЧЕТ кол-ва положительных и отрицательных чисел
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var a,pol,otr:integer;
begin
pol:=0;
otr:=0;
repeat
begin
writeln('Введите число');
read(a);
if a>0 then pol:=pol+1
else otr:=otr+1;
end;
until a=0;
writeln('Положительных чисел - ',pol);
writeln('Отрицательных чисел - ',otr);
end.
Не нашли ответ?
Похожие вопросы