Question

Программа на Pascal.

вывести на экран все числа кратные заданному А, из интервала указанного пользователем...

или так наверно понятнее:

пользователь ввел число А и интервал чисел, из этих чисел вывести на экран кратные числу А.

 

Answer 1

пусть введенный интервал будет

B и C,где B<C

var a,b,c,i:longint;

begin

   read(b,c);

   for i:=b to c do

       if i mod a=0 then write(i);

end.