Вывести все двузначные числа сумма которых равна их произведению??!!или найти все...

0 голосов
21 просмотров

Вывести все двузначные числа сумма которых равна их произведению??!!или найти все двузначные числа которые делятся на nили содержат цифру n! ?(все в паскале) помогите пожалуйста на завтра надо!!?


image

Информатика (15 баллов) | 21 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var i,j:integer;
Begin
  for i := 1 to 9 do
   for j := 1 to 9 do
     if (i+j=i*j) then
       writeln(10*i+j);
End.

(53.1k баллов)