Var n,i:integer;
S:real;
begin read(n);
S:=0;
for i:=1 to n do
S:=S+1/2+i;
writeln(S);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(6,i->i*i-5); a.Println
end.
<u>Результат (индексы динамических массивов начинаются от нуля)</u>
-5 -4 -1 4 11 20
Здесь в цикле накапливается сумма значений 2*i, где i меняется от 12 до 33.
Проделаем некоторые преобразования.
Cумма S1 - это сумма членов арифметической прогрессии с разностью d=1.
Тогда S=86+2x495=1076
Ответ: 1076
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var i:=0;
range(0,10).Select(x->3**x).ForEach(t->begin writeln(i,' ',t); inc(i); end);
end.
Нужен учебник, так ничего не сказать :)
Если это задание информатичке понесёшь, то пиши что-то вроде этого:
"30 декабря в Москве собрались уполномоченные делегации советских социалистических республик, которые утвердили Договор и Декларацию об образовании Союза Советских Социалистических республик (СССР)" - это словесная модель исторического события.