Администрирование или программирование, что интересует?
у меня почему то не открывается
4 цвета умещаются в 2 бита
Объем видеопамяти = 2 * 640* 480 = 614400 бит
256 цветов умещаются в 8 бит
X * Y * 8 = 614400
X / y = 1.33
x = 1.33 * y
1.33 * y * y * 8 = 614400
y*y = 57600,144
y = 240
x = 320
Ответ 320 на 240
Function Max(a,b:real):real;
begin
if a>b then Max:=a
else Max:=b
end;
var
a,b,c,d,e,m:real;
i:integer;
begin
Writeln('Введите 5 чисел: ');
Read(a,b,c,d,e);
m:=Max(a,b);
m:=Max(m,c);
m:=Max(m,d);
m:=Max(m,e);
Writeln('Максимум: ',m)
end.
<u>Пример</u>
Введите 5 чисел:
2.3 4 -5.16 0 0.087
Максимум: 4