Program npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
Правильный вариант ответа 3.
В цикле перебираются все элементы массива, кроме последнего, и те которые больше его складываются.
1 зелёный которые животные которые стоят возле цифр
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить