Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
Если в конце предложения нет точки,то получаем: 77 символов * 16 бит = 1232 бита
или 154 байта (1232/8=154)
В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше
1. Старуха управляет стариком (посылает его к золотой рыбке с просьбами).
2. Старуха управляет золотой рыбкой (просит золотую рыбку через старика).
3. Старик управляет золотой рыбкой (передает золотой рыбке просьбы старухи).
4. Золотая рыбка управляет вещами старика и старухи (старые вещи исчезают, новые - появляются).