Меню сайта

Задача №17

Вывести на печать 3-х значные числа, которые делятся на свои цифры и перевертыш этого числа тоже делится на свои цифры.


program for_17-

uses crt-

var a,b,c,m,m1:longint-

begin

clrscr-

for a:=1 to 9 do

for b:=1 to 9 do

for c:=1 to 9 do

begin

m:=a*100+b*10+c-

m1:=c*100+b*10+a-

if (m mod a=0)and(m1 mod a=0)and

(m mod b=0)and(m1 mod b=0)and

(m mod c=0)and(m1 mod c=0)and(a&lt-&gt-c)then writeln(‘ ‘,m)-

end-

readln-

end.

Категория: Циклы | Дата: 18.11.12

Меню раздела
Блок