составить программу для вычисления суммы кубов всех чисел от 1 до 10 ,использовать while.
помогите!!((
Ответы
Ответ дал:
1
program kwad;
var i,s:integer;
begin
while i<>11 do begin
s:=s+sqr(i);
i+=1
end;
writeln(s);
end.
Вас заинтересует
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад