Var x:integer; y:real;
Begin
write('x=');
readln(x);
y:=((x*x)-(7*x)+10)/((x*x)-(8*x)+12);
writeln('y=',y);
End.
Чадо-чайка-чаровница-чародейка-часик-часок–другой
16 символов - это 2^4 4 бит символ
256 символов - это 2^8 8 бит символ
4*20=80 бит - объем информации при наборе 16 символьным алфавитом
8*20=160 бит - объем информации при наборе 256 симв. алфавитом.
Тем самый в два раза меньше объем у 16 символьного алфавита
3- рисунок 1,8-b) .9 оператор цикла вроде
Это часть про разложение на цифры<span>uses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);</span><span>end.
</span>