Question

Решите пожалуйста задачу по информатике.
Натуральные числа a,b,n заданы пользователем. Вывести на экран числа отрезка a,b с шагом n.
Пример: 2,20,3
2,5,8,11,14,17,20

Answer 1

var a,b,n:integer;

Begin

 write('Введите начало интервала (a): '); readln(a);

 write('Введите конец интервала (b): '); readln(b);

 write('Введите шаг (n): '); readln(n);

 a := a - n;

 while (true) do Begin

   a := a + n;

   write(''+a);

   if(a >= b) then break;

   write(',');

 End;

End.

Answer 2

var a,b,n,i:integer;

begin

write('Введите a,b,n: ');

readln(a,b,n);

repeat

write(a,'  ');

a:=a+n

until a>b

end.

или

var a,b,n,i:integer;

begin

write('Введите a,b,n: ');

readln(a,b,n);

while a<=b do

begin

write(a,'  ');

a:=a+n

end

end.