2 байта = 2*8 бит = 16 бит = 16 разрядов
1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))
2) y:= -12*sqrt(x*(y*y)+cos(a/2))
3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))
4) S:= ((26*k-m)/(6-4*k))-56*m*k
5) y:= x-(sqrt((y*y+2)/2))+2*y
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
1 часть - базовая (от 0 до 127)
2 часть - расширенная (со 128 до 255), является национальной, там располагаются национальные алфавиты, отличные от латинского