<span>srednee:=(a+b)/2; наверное.
</span>
Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
<span>end.</span>
Для того, чтобы перевести число из десятичной сс, надо делить на основание другой сс (в данном случае 5). И в ответе писать остатки от деления, которые получаются (как показано на фото). Ответ: 2332.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача 1</em>
begin
Writeln('S=',Range(1,ReadInteger('N=')).Sum(x->x*x))
end.
<u>Пример</u>
N= 10
S=385
<em>Задача 2</em>
begin
Writeln('S=',Range(1,99,2).Sum)
end.
<u>Результат</u>
S=2500
4) — точно; 1) — не уверена, но кажется да