Найти все трехзначные числа,сумма которых равна их произведению Паскаль
Найти все трехзначные числа,сумма которых равна их произведению Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
{Программа работает, но чисел таких нет}
Гостьаналогично
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.
Не нашли ответ?
Похожие вопросы