Регистрация
arzuaes
21.03.2021 13:18
Информатика
Есть ответ 👍

Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и подсчет кол-ва положительных и отрицательных чисел

126
443
Посмотреть ответы 2

Ответы на вопрос:

Adinay12
Adinay12
4,5(40 оценок)

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.

romafadeev1
romafadeev1
4,4(31 оценок)
P=(a+b) в квадрате,следовательно ответ:64

Популярно: Информатика