Вывести на экран первые четыре числа, кратные s и больше x. - Turbo Pascal

Формулировка задачи:

Вывести на экран первые четыре числа, кратные s и больше x. Натуральные числа s и x пользователь вводит с клавиатуры.

Код к задаче: «Вывести на экран первые четыре числа, кратные s и больше x. - Turbo Pascal»

textual
var s,x,a,k:integer;
begin
writeln('Введите натуральные числа s,x');
readln(s,x);
a:=x+1;
while a mod s<>0 do a:=a+1;
write(a,' ');
for k:=1 to 3 do
 begin
  a:=a+s;
  write(a,' ');
 end;
end.

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ