Найти все трехзначные числа, сумма которых равна их произведению Паскаль

Question

Информатика

Димитрий

22 октября, 16:23

Найти все трехзначные числа, сумма которых равна их произведению Паскаль

+5

Ответы (2)

Знаете ответ на вопрос?

Арсения · Answer 1

Аналогично

begin

for var a : = 100 to 999 do begin

for var b : = 100 to 999 do begin

if a * b = a + b then writeln (a,'-', b) ;

end;

end;

end.

Сосипатр · Answer 2

var

a, b, i, n:integer;

begin

for i:=100 to 999 do

if ((i mod 10) + (i div 10) + (i div 100)) = ((i mod 10) * (i div 10) * (i div 100)) then

begin

write (i,' ') ;

a:=a+1;

end;

if a=0 then

writeln ('Нет таких чисел') ;

end.

{Программа работает, но чисел таких нет}