Program n1;
var a,b,c,d,p: real;
begin
readln(a,b,c,d);
p:=a+b+c+d;
writeln(p);
end.
Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
1) program n_1;
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
<span>end.
</span>
569(9)=5103
26705(16)=427280
а второе я хз:D
а в чем проблема в excel переписываешь 10-11 ячейки объединяешь
колонку цену делаешь по центру на 5 минут работы