Вывести все числа Опции

[agressor]

Вывести все числа кратные 5 включая х1 ,не включая х2.

Если можно цикл For
volvo Спасибо!

[volvo]

agressor

Сам пробовал решить?

Код

var i, x1, x2: integer;
begin
 write('x1 > '); readln(x1);
 write('x2 > '); readln(x2);

 for i := x1 to x2 - 1 do { x2 не включается, т.к. - 1 }
   if (i mod 5) = 0 then write(i:4);
end.

В следующий раз приводи задание как следует, я же не телепат.... :D
И прежде чем спрашивать - постарайся решить сам. Если не получится - ничего страшного, поможем ... :yes: