Объем видеопамяти равен 512 Кбайт = 524288 байт = 4194304 битразрешающая способность дисплея 800x600= 480000 точекв одну точку можно "загрузить" -1 цвет= 4194304 бит / 480000 точек = 8,738133333333333 = 8 битзначит количество цветов 2^8=256Ответ 256 цветов
Var
m,n,d:integer;
begin
Read(m,n);
d:=m mod 10 - n mod 10;
if d<0 then Writeln('У 1-го числа разряд единиц меньше')
else
if d>0 then Writeln('У 2-го числа разряд единиц меньше')
else Writeln('У обоих чисел разряды единиуц равны')
end.
===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.