uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
На один символ (букву) необходим 1 байт информации или 8 бит.
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
1) Нужен сам рисунок
2) 64 * 64 = 4096 пикселей
512 байт = 4096 бит
4096 / 4096 = 1 бит / пиксель
2¹ = 2
Ответ: 2 цвета.
3) 128 * 128 = 16384 пикселей
4 КБайта = 4096 байт = 32768 бит
32768 / 16384 = 2 бита / пиксель
2² = 4
Ответ: 4
4) 256 = 2⁸, значит, 8 бит (1 байт) / точка
Ответ: 2400 точек.
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.