давно
Старший Модератор
31795
6196
28.03.2016, 11:30
общий
это ответ
Здравствуйте, natalya270996!
Смотрите приложение:
[code lang=pascal h=100]var
a,n:integer;
begin
repeat
write('Enter n:');readln(n);
until n<>0;
for a:=100 to 999 do
if(a mod n = 0)or
(a mod 10 = n)or(a div 10 =n)or
(a mod 100= n)or(a div 100=n)then write(a:5);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.