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