Program zadacha3_6;

var s, а, b:longint;

Begin

writeln('Введіть s'); readln(s);

for а:=1 to s do

for b:=1 to s do

if a*b=s then writeln ('сторони ',a,' і ',b);

End.

Дану задачу можна було вирішити, використовуючи тільки один цикл. Подумайте, як це зробити.

Дані натуральні числа n, m. Отримати всі натуральні числа, менші n, сума квадратів цифр яких рівна m.

Program zadacha3_7;

var n, m, i, а, sum, cif:longint;

Begin

writeln('введіть n і m');readln(n, m);

for i:=1 to n do

Begin

а:=i;sum:=0;

while a>0 do

Begin

cif:=a mod 10;

sum:=sum+sqr(cif);

а:=a div 10;

End;

if sum=m then write(i,' ');

End;

End.

Знайти всі рішення заданого числового ребусу. Кожній букві відповідає деяка цифра. Причому однаковим буквам відповідають однакові цифри, різним буквам - різні цифри.