Repeat
clrscr;
WriteLn ('Введите пароль: ');
ReadLn (pas);
until pas = '1234'<span>;</span>
38,1 * 1200 = 45720 (пикселей по ширине и высоте);
45720*45720= 2090318400 (точек в цветном изображение);
2090318400 * 32 = 66890188800 бит.
66890188800 бит. = 8361273600 байт. = 8165306,25 Кб. = 7973,931884765625 Мб.= 7,787042856216431 Гб.
Ответ: ~7,79 Гб.
Надеюсь, помог.
Буду признателен, если выберете "Лучший"
Удачи!)
Var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
<span>end.</span>
Файл во вложении. Цифры и текст можешь поменять - это не принципиально
8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536