Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
Var a, s,d,ed, ost: integer;
begin
a:=99;
repeat
a:=a+1;
s:= a div 100;
ost:= a mod 100;
if ost>9 then
begin
d:= ost div 10 ;
ost:=ost mod 10;
end else d:= 0;
if ost<10 then ed:=ost;
until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));
writeln('это число: ',a:3);
end.
Ми розумні та кмітливі і завжди на позитиві!
Наталья199717, немного не верно...
1)25-5=20
2)20+18=38
3)38-20=18!!!А вообще можно только логмчески решить...т.к. в шашки только 18 играть умеют,то следовательно И В ШАШКИ И В ШАХМАТЫ может играть только 18 человек,никак не 19!
Вот, например, что нашла. 1,2,3 - уже не др.русь, но вдруг надо. а 4,5 рисунок история развития плечевой одежды в др.руси!