===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
Var i:integer;
s:real;
begin
s:=0;
for i:=5 to 26 do
s:=s+sqrt(i);
write('Ответ: ',s);
end.
Чудик какой-то ) даже не знаю что это? или кто это ?
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt