Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.
Ответы
Ответ дал:
0
var i,c:integer;
begin
for i:=100 to 999 do
begin
c:=i div 10 mod 10;
if (i div 100)*(i mod 10)=c*c*c then writeln(-i,' ',i);
end;
end.
Результат:
-100 100
-111 111
-128 128
-200 200
-224 224
-300 300
-339 339
-400 400
-422 422
-500 500
-600 600
-700 700
-800 800
-821 821
-848 848
-900 900
-933 933
begin
for i:=100 to 999 do
begin
c:=i div 10 mod 10;
if (i div 100)*(i mod 10)=c*c*c then writeln(-i,' ',i);
end;
end.
Результат:
-100 100
-111 111
-128 128
-200 200
-224 224
-300 300
-339 339
-400 400
-422 422
-500 500
-600 600
-700 700
-800 800
-821 821
-848 848
-900 900
-933 933
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад