Задача с циклами., Помогите, пожалуйста, решить. Опции

[infarkt]

1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.
2) Организовать ввод чисел до первого нулевого значения. Найти количество максимальных чисел.
Желательно через циклы.

Сообщение отредактировано: infarkt - 4.04.2012 18:42

[Artem7]

1)

Program chetnie;
Var n:integer;
Begin
   n:=100;
   While n>=50 do begin
   write(n,' ');
   n:=n-2;
   End;
   readln;
End.

2) Тебе нужно найти кол-во введенных цифр или найти среди введённых наибольшее?

Сообщение отредактировано: Artem7 - 4.04.2012 18:22