ПОМОГИТЕ ПЖЛ!!!
напишите прогу, в которой осуществляется ввод целых чисел и подсчет кол-ва введенных положительных и отрицательных чисел(т.е. задано условие окончания работы, использовать reapeat)
напишите прогу, в которой осуществляется ввод целых чисел и подсчет кол-ва введенных положительных и отрицательных чисел(т.е. задано условие окончания работы, использовать reapeat)
Answers & Comments
Verified answer
Program Katarina55;uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.