720*1024*1024=754974720 байт - весь фильм 1 минуты
1024*768*60*16*Х=754974720
Х=1
всего один цвет - монохромное изображение
1) D
2)
<span>полная форма if (условие) then ...else ...;
</span><span>краткая форма if (условие) then ...;
</span><span>3)
a) </span><span>if x>=y then
begin
x:=0;
y:=0;
end;
else
write(z);
b)
1.5
</span>
В строчке read('a'); апострофов быть не должно. Замени на read(a);
512=2^i
i=9 бит
v=k*i=400*9=3600 бит/8=450 байт/1024=0,43 Кб
Uses
Crt;
Var
a,b:integer;
Begin
Writeln('Введите ваш рост в сантиметрах, округлив до целого значения');
Readln(a);
b:=a-100;
Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');
End.