Ответ:
program noname;
var
i, s: integer;
begin
i:= 1;
s:= 0;
while i < 11 do
begin
s:= s + (i * i);
Inc(i);
end;
write (‘Сумма: ‘, s);
end.
ПОМОГИТЕ
Найти сумму квадратов всех целых чисел от 1 до 10. (цикл с предусловием) — Правильный ответ на вопрос найдете ниже
05.07.2019 · 1