Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
//Pascal ABC.NET v3.1 сборка 1172
Var
n:integer;
r,p:real;
begin
read(n,r);
p:=n*2*r*tan(pi/n);
writeln(p);
end.
Пример ввода:
6
4
Пример вывода:
27.712812921102
54+79 4+9=13(D) 5+7=12(C) Ответ: сумма CD
Var a,b:real;
i,d:integer;
begin
a:=0;
b:=0;
d:=1;
for i:=1 to 30 do begin
a:=a+100;
b:=b+d;
d:=d*2;
end;
b:=b/100;
if a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.