Ответ:
вариант
б) Понятное
var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.
Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22
526 в восьмеричной
156 в шестнадцатеричной
64=2^i
i=6
n=57344*6=344064 бита=43008 байтов = 42 кб