Найти все пятизначные числа вида 2t5 7 p, которые делятся на 15 - Pascal ABC

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

Найти все пятизначные числа вида 2t5 7 p (t и p — цифры), которые делятся на 15.

Решение задачи: «Найти все пятизначные числа вида 2t5 7 p, которые делятся на 15»

Листинг программы

var t,p:integer;
begin
for p:=0 to 5 do
if p in [0,5] then
 begin
  for t:=0 to 9 do
  if (20570+1000*t+p) mod 15=0 then writeln(20570+1000*t+p)
 end;
end.

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

В данном коде используется цикл for, который перебирает значения переменной p от 0 до 5. Внутри цикла проверяется условие: если значение p равно 0 или 5, то выполняется блок кода внутри блока if. Внутри блока if также используется цикл for, который перебирает значения переменной t от 0 до 9. Внутри цикла проверяется условие: если значение (20570+1000*t+p) делится на 15 без остатка, то число выводится на экран с помощью функции writeln. Таким образом, код выводит на экран все пятизначные числа вида 2t5, которые делятся на 15.

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

14 голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы