Ответы
Ответ дал:
1
program zadacha;
var
a,otvet:longint;
i:byte;
begin
for i:=25 to 125 do
begin
a:=0;
a:=i*i*i;
otvet:=otvet+a;
end;
writeln(otvet);
end.
var
a,otvet:longint;
i:byte;
begin
for i:=25 to 125 do
begin
a:=0;
a:=i*i*i;
otvet:=otvet+a;
end;
writeln(otvet);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
2 года назад
2 года назад