Ответы
Ответ дал:
0
program FindNumbers;
var
num: integer;
begin
for num := 100 to 999 do
begin
if (num mod 7 = 0) and ((num div 100 = 7) or ((num div 10) mod 10 = 7) or (num mod 10 = 7)) then
begin
writeln(num);
end;
end;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад