var
i:integer;
begin
for i:=1 to 999 do
if (566000+i)mod(7*8*9)=0 then write(566000+i,' ');
readln;
end.
Похожие записи/страницы:
- Приписать к числу 1022 слева и справа по одной цифре так, чтобы полученное шестизначное число делилось на 7, на…
- припишите к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8 и на 9 без…
- Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево - Pascal(Паскаль)
- дано натуральное число N
- Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число -…
- Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число -…
- Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное…
- Составить программу, которая по задаваемому целому числу N (длинное целое) находит какие различные цифры…