• Составить программу в паскаль. С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить: 1.Максимальное число в этой последовательности. 2.Количество четных чисел.

Ответы 3

  • А если будут вводиться числа из интервала (-5000;-3000) ?
    • Автор:

      cristian
    • 6 лет назад
    • 0
  • спасибо тебе большое, добрый человек.
  • //Pascal ABC.NET v3.0 сборка 1111var a,k,max:integer;begina:=1;max:=-1000;k:=0; while a<>0 do  begin;   if not(odd(a)) then inc(k);   if max<a then max:=a;   readln(a);  end;writeln('Max=',max,', not odd:',k);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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