Вот верный ответ:
101101,01₂=2D,4
In= I * X * Y, где
In - информационный объём памяти
I - глубина цвета
X*Y - кол-во точек изображения
In = 4*8*600*1200 = 23 040 000 бит = 2 880 000 байт = 2 812,5 Кбайт = 2,75 Мбайт
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
Вот решение я приложил в файле и на картинке
Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.