Найдите двузначное число, тем свойством, что куб суммы его цифр равен квадрату самого числа.(pascal)

агент007200 агент007200    3   21.05.2019 20:30    2

Ответы
эмили40 эмили40  01.10.2020 05:04

uses crt;

var i,s,a,b:integer;


begin
for i:=10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
s:=a+b;
if s*s*s = sqr(i) then writeln(i);
end;

readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика