program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
N = 24
N=2^i
i= 5
I= 12*5= 60 бит (лебедя)
I=8*5= 40 (журавля)
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
Var
V,r:real;
begin
readln(r);
V:=4/3*pi*r*r*r;
writeln(V);
end.
Для того, чтобы вставить пустую строку нужно нажать клавишу enter.