Pascal ABC, ПОМОГИТЕ РЕБЯТ
НУЖНО РЕШИТЬ ЧЕРЕЗ WHILE
Дано целое число N (> 0). Найти сумму
N2 + (N + 1)2 + (N + 2)2 + ... (целое число).
Ответы
Ответ дал:
0
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
while i <= n do
begin
s := s + 2 * (n + i);
i := i + 1;
end;
writeln(s);
end.
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
while i <= n do
begin
s := s + 2 * (n + i);
i := i + 1;
end;
writeln(s);
end.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад