//PascalABC.NET 3.2 сборка 1218
//1
const
a=2.1;
b=1.8;
c=-2.05;
Var
i:integer;
begin
readln(i);
if i<4 then writeln(a/i+b*sqr(i)+c) else writeln(a*i+b*power(i,3));<br>end.
//2
Var
i,sum:integer;
begin
for i:=-15 to 15 do
sum:=sum+i;
writeln(sum);
end.
//3
Var
i,sum:integer;
proi:BigInteger; //значение слишком велико, не знаю, сработает ли на ABC
begin
proi:=1;
for i:=18 to 721 do
if i mod 6=0 then
begin
sum:=sum+i;
proi:=proi*i;
end;
writeln('sum=',sum,' proi=',proi);
end.
//4
Const
x=0.013;
Var
sum,zna:real;
i:integer;
begin
sum:=-11;
zna:=1;
for i:=1 to 10 do
begin
zna:=zna+2;
sum:=sum+(i*2*power(x,i*2))/zna;
end;
writeln(sum);
end.
//5
Var
x,prib:integer;
begin
x:=-3;
prib:=0;
while x+prib*0.2<=3 do<br> begin
writeln('x=',x+prib*0.2,' y=',sqr(x+prib*0.2)+3*(x+prib*0.2)+7);
inc(prib);
end;
end.
//6
const
n=10;
Var
ar:array[1..n] of integer;
i,proi:integer;
begin
proi:=1;
for i:=1 to n do
begin
readln(ar[i]);
if ar[i] mod 5=0 then proi:=proi*ar[i];
end;
writeln(proi);
end.
Вопросы:
1. if
2. repeat-until, while, for
3. 10