Var
A,N:integer;
M:array[1..10001] of integer;
Begin
ReadLn(N,A);
if A mod 2<>0 then A:=A+1;
For N:= 1 to N do
Begin
M[N]:=A;
A:=A+2;
Write(M[N],' ')
End;
End.
Индийский океан больше, чем Северно-Ледовитый ( А также Южный океан, который пока не относят к отдельному океану),, но меньше Атлантического океана или Тихого океана.
Танганьика глубже, например, Азовского моря ,, но мельче Байкала.
I=1 s=0+1*1=1
i=2 s=1+2*2=5
i=3 s=5+3*3=14
i=4 s=14+4*4=30
i=5 s=30+5*5=55
Ответ: s=55
Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.
5 байтов получится-----------------------------------------------------