Составить программу в Pascal,вычисляющую сумму кубов всех 2-значных чисел.

Question

Составить программу в Pascal,вычисляющую сумму кубов всех 2-значных чисел.

Carnagik Мастер (1115), закрыт 15 лет назад

Answer 1

program sum_kub;
var s, i:integer;
begin
s:=0;
for i:=10 to 99 do s:=s+i*i*i;
writeln('сумма кубов всех двухзначных чисел =',s)
end.

Answer 2

begin
x:=1;
y:=0;
s:=0;
if x<100 do x*x*x:=y;
s:=s+y;
x:=x+1;
else
end
s-сумма y-сумма за цикл, если есть вопросы пиши
еле вспомнил паскаль но вроде функция правильная