Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
В теории можно это буква в её код 20 а как я знаю нули из числа можно убирать пример (в двоичной системе) число 100100 оно занимает два байта то есть 00000000 00100100 ели я не прав отметь мой ответ как неправильный
Var b,beta,l,br,lr,v:real;
begin
readln(b,l,beta);
br:=(beta*pi/180)/2;
lr:=(l*pi/180);
v:=(pi*b*b*b*(cos(br)/sin(br))*(sin(lr)/cos(lr)))/(8*sqr(sin(br)));
writeln(v:7:2);
end.
Пример:
24 26 37
<span>78596.40</span>