всего точек 600*800=480 000
размер файла 512 мб
выясним размер 1 точки
512мб переведем в килобайты, далее в байты
512*1024*1024=536870912 байт размер картинки
536870912 делим на 480 000=1118.48 байт на 1 пиксель
16 млн цветов кодируются 3 байтами
составим пропорцию
16млн=3 байта
Х = 1118 байт
х= (1118*16)/3=5962.66 млн цветов
Ответ: 5962.66 млн цветов
А вообще под такие параметры не найдешь картинку) но это задача.
Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
Var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>