program find_number; var num: integer; begin num := 50000; while num < 60000 do begin if (num mod 45 = 0) then writeln(num); num := num + 10; end; end.
Эта программа будет искать все пятизначные числа, которые делятся на 45. В данном случае, мы ищем число, в котором заменяем 54*5* на любые цифры, чтобы полученное пятизначное число делилось на 45.
Программа на Pascal:
program find_number;var
num: integer;
begin
num := 50000;
while num < 60000 do
begin
if (num mod 45 = 0) then
writeln(num);
num := num + 10;
end;
end.
Эта программа будет искать все пятизначные числа, которые делятся на 45. В данном случае, мы ищем число, в котором заменяем 54*5* на любые цифры, чтобы полученное пятизначное число делилось на 45.