Question

Нужно составить в паскале программу, которая выводит на экран в строку через пробел числа, кратные 10 в промежутке от 100 до 500.

Помогите пожалуйста!!! Очень срочно нужно!! Буду благодарен.

Answer 1

program dfgd;

var
  i: integer;

begin
  for i := 100 to 500 do
    if (i mod 10 = 0)
      then write(i, ' ');
end.

Answer 2

program Question;
var i: integer;
begin
    for i:=10 to 50 do
          writeln(i*10 + ' ');
end.


Чем плох предыдущий ответ: цикл проработает 400 раз, из которых 360 будут бесполезны.