Конечно, может и не заработать, но вроде всё в порядке
var a,b,c,d,e,f,g:real;
begin
readln(a,b);
c:=a+b;
d:=c*c;
e:=b*b*b;
f:=a-d-e;
g:=sin(a);
writeln(f/g);
readln;
end.
Блок схемы нарисовал бы, но не с компа сижу
Пожалуйста)
Program azatka;
var v,s,h:real;
Begin
Writeln('Введите площадь основания');
Readln(s);
Writeln('Введите высоту');
Readln(h);
v:=(s*h)/3;
Write('V=',v);
End.
Представить систему как чёрный ящик - это значит указать её входы и выходы
Program name;
const n=5;
var i:integer;
begin
for i:=1 to n do
writeln('ваше имя');
<span>end.</span>
16 символов - это 2^4 4 бит символ
256 символов - это 2^8 8 бит символ
4*20=80 бит - объем информации при наборе 16 символьным алфавитом
8*20=160 бит - объем информации при наборе 256 симв. алфавитом.
Тем самый в два раза меньше объем у 16 символьного алфавита