ПОМОГИТЕ ПЖЛ!!!
напишите прогу, в которой осуществляется ввод целых чисел и подсчет кол-ва введенных положительных и отрицательных чисел(т.е. задано условие окончания работы, использовать reapeat)

1

Ответы и объяснения

Лучший Ответ!
2013-09-18T02:10:50+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.