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

225

485

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

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

078901234567

Информатика

4,7(61 оценок)

Program katarina55; uses crt; var x,poz,neg: integer; begin writeln('*** alphaues is ***'); 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.