1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
1) 15,18,21,24... 2) -24. ,- 26
Trunc(sqrt(16 div 3)) = Trunc(sqrt(5)) = <span>Trunc(2.24) = 2</span>