Это просто переменные, никакого глубинного смысла.
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.
№1
Стиральная машина, утюг, телевизор
№2
2(рубанок) и 4(швейная машинка)
№3
1-5,6
2-7
3-3
4-4
5-6
6-1
7-2
Для начала найдём "вес" одной буквы такого алфавита. Воспользуемся формулой:
где m - количество букв в алфавите, а n - минимальная степень числа "2", которая способна в себя уместить все буквы алфавита.
m=64, тогда
n=6
6 бит нужно для записи одной буквы.
По условию задачи нам нужно записать 60 таких символов.
360 бит нужно для записи 60 символов. Или 45 байт.
If (x>=6) and (x<=8) then begin
z:= x div 2 ;
ответ 8 div 2 = 4 z:=4