//V = (100 -2*h)*(100 -2*h)*h
const L = 100;
var V1, V2,h :real;
begin
v1:= 0; v2:=1; h:=10;
while (v2 - v1) >0 do
begin
v1 := (100 - 2* h)* (100 - 2* h)*h;
h := h +0.5;
v2 := (100 - 2* h)* (100 - 2* h)*h;
writeln('Высота = ', h , ', Объем ', v1);
end;
writeln('Высота = ', h , ', Максимальный объем ', v1);
<span>end.</span>
Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t->t-a); m.Println
end.
<u>Пример</u>
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
var t:array[0..19] of byte;
i,k,l,s:integer;
begin
k:=0;
l:=0;
s:=0;
for i:=0 to 19 do begin
t[i]:=random(21)-10;
write(t[i],' ');
if t[i]=0 then k:=k+1;
if t[i] mod 3=0 then s:=s+t[i];
l:=l+t[i];
end;
write('колво 0 ',k);
write('сумма кратных 3 ',s);
write('средне арефм ',l/20);
end.