Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
I=a*b*i
1мб=800*600*i
1мб=
бит=8388608 бит
800*600=480000(на 1 страницу)
480000*2=960000(на 2 страницы)
i=
i=
i=9
Ответ: Можно использовать максимум 512 цветов
Кол-во символо = 82(с пробелами)
Размер = 82*32 = 2624
переведём в байты = 2624/8 = 336 байт ответ(2)
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.