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

[infarkt]

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

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

[IUnknown]

1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.

var i : integer;
begin
   for i := 50 downto 25 do
      write(2 * i:3);
end.

Результат - совершенно аналогичен тому, который получается при запуске приведенной выше программы. "А если разницы нет - зачем печатать больше?"