• помогите составить программу в паскале:
    в компьютер вводятся числа числа от 1 до 9. Нужно посчитать количество чётных и нечётных.

Ответы 1

  • program help;uses Crt;var a,cot,cpo:integer;beginot:=0;po:=0;cot:=0;cpo:=0repeatwriteln('Число: ');readln(a);if a<0 then begin ot:=ot+a; inc(cot);end elseif a>0 then begin po:=po+a; inc(cpo); end elseif a=0 then beginwriteln('Кол-во положительных чисел: ',cpo);writeln('Кол-во отрицательных чисел: ',cot);end;until a=0;readln;end
    • Автор:

      salomé
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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