Так и будет: 480х272 = 130560 штук
Для кодирования одного из 16 цветов требуется log(2)16 = 4 бита (2^4=16).
Объем изображения = 400*600*4 бит = 400*600*4/8 байт = 120000 байт = 120000/1024 Кбайт ≈ 117,2 Кбайт
Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
А где собственно задание?
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон