program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.
Var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
Hex(8): 4 = Dec(10)
Hex: 1,2,3,4,5,6,7,10,11,12...
Dec: 1,2,3,4,5,6,7, 8, 9, 10...
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Двоичная запись содержит 5 значащих цифр.