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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные s, x, a и k типа integer.
  2. Затем выводится сообщение для ввода натуральных чисел s и x.
  3. Переменная a инициализируется значением x+1.
  4. Затем запускается цикл while, который выполняется до тех пор, пока a не станет кратным s без остатка.
  5. После выхода из цикла while выводится значение переменной a.
  6. Далее идет блок for, который выполняется от 1 до 3 (порядок не важен).
  7. Внутри блока for переменная a увеличивается на s.
  8. Затем выводится значение переменной a.
  9. Цикл for завершается после выполнения всех трех итераций.
  10. Код заканчивается.

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы