ИНФОРМАТИКА! (только реальный ответ)

Question

Информатика: ИНФОРМАТИКА! (только реальный ответ)

SadEngineer · Accepted Answer

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var mas:=ArrRandomReal(10,-99,99);

var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;

var b:=c.Min;

c[7]:=b;

c.Println;
end.

Program m2

begin

var n:=readinteger('Введите количество n=');

var (b,a,c):=(3,1,2);

var k:real:=0;

for var i:=1 to n do

begin

k:=k+b/(a*c);

b:=b+3;a:=a+1;

c:=c+2;

end;

Writeln('Сумма=',k);
end.

Program m3;

begin

var n:=readinteger('Введите количество n=');

var c:real:=0;

var b:=1;

for var i:=1 to n do

begin

c:=c+b**2;

b:=b+1;

end;

var y:=n*(n+1)*(2*n+1)/6;

if c=y then

writeln('тождество верно')

else writeln('тождество не верно')

end.

MOGZ ответил

ИНФОРМАТИКА!
(только реальный ответ)