Глубина 8 бит означает, что на хранение каждого пикселя нужно 8 бит = 1 байт, а всего этих пикселей 800*600 = 480000 -> необходимо 480000 байт = 468.75 кбайт.
Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
<span> <span>var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.</span></span>
1. Программа
Так-как : Пила- 3 буквы забираем получается - п
Роза - 2 буквы забираем получается ро
Грамм
А
2. Команда
Так-как : Корабль- 5 букв забираем, получается - ко
Домбра- забираем д и бра
Панда- забираем букву - а
3. Алгоритм
Так-как: Медаль- забираем - мед и - ь
Горы- забираем - ы
Кит- забираем - к
Мак- забираем - ак