Предмет: Информатика,
автор: lleerraaa
ПОМОГИТЕ пожалуйста,очень СРОЧНО, в паскале с 3 циклами и комментариями
While
Repeat
For
Дано целое число N (> 0). Найти сумму N2 + (N + 1) 2 + (N + 2) 2 + ... (целое число)
Ответы
Автор ответа:
0
// Цикл while
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.
//цикл Repeat
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
// Цикл for
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
for i:=1 to n do
s := s + 2 * (n + i);
writeln(s);
end.
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.
//цикл Repeat
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
// Цикл for
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
for i:=1 to n do
s := s + 2 * (n + i);
writeln(s);
end.
Похожие вопросы
Предмет: Биология,
автор: daukshisdaria
Предмет: Русский язык,
автор: Deduga
Предмет: История,
автор: Аноним
Предмет: Алгебра,
автор: я1хз