Пожалуйста)
Program azatka;
var v,s,h:real;
Begin
Writeln('Введите площадь основания');
Readln(s);
Writeln('Введите высоту');
Readln(h);
v:=(s*h)/3;
Write('V=',v);
End.
10100110100111001 <span> в двоичной
</span>246471 <span>восьмеричной
</span>14D39 <span>шестнадцатеричной</span>
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
Uses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.