• помогите составить программу с оператором while вводятся 5 чисел.определить,сколько среди них положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).

Ответы 5

  • Error: can't find symbol ("read", line 10)
    • Автор:

      schaefer
    • 5 лет назад
    • 0
  • так же выдает ошибку
  • а вы в какую версию паскаля используете?
  • запустила в паскальabc все работает
  • var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
    • Автор:

      derek
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years