Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.
Ответ:
Мы присваиваем k значение полученное month
Две задачи в файле
3)
var n,i;integer;
s:real;
begin
write('n=',n); read(n);
for i:=1 to n do begin
s:=s+1/i;
end;
write('s=',s);
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(4,1,500); // создали массив
a.Println; // распечатали его элементы
var max:=a.Max;
if max<250 then Writeln(2*max)
else Writeln(max)
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, i -> Sqr(i + 1), 1).Sum.Println
end.