Ответ:
Переведем размеры изображения в точки.
48.26×1200=57912 точек .
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит , которые требуются для кодирования цвета одной точки. 16 бит - это 16/8=2 байта.
Тогда общий объём составит 3353799744×2= 670759948800байт.
Переводим в килобайты:670759948800 /1024≈6550390.13 Кбайт.
Переводим в мегабайты:6550390.13 /1024≈6396.87 Мбайт
Моно и в гигабайты перевести: 6396.87/1024≈6.25 Гбайт.
Поле где выполняется программа называется сцена.
<em><u>Задание 1. </u></em>На самом деле в нем ошибка. Числ Фибоначчи определены начиная с f0=1, а в задании дважды указано f1=1.
uses Crt;
var
k,n,f0,f1,fk:longint;
begin
ClrScr;
f0:=1; f1:=1; k:=2;
Write('n='); Read(n);
Write(f0,' ',f1);
while k<=n do begin
fk:=f0+f1; f0:=f1; f1:=fk; Inc(k);
Write(' ',fk)
end;
Writeln;
ReadKey
end.
<em><u>Тестовое решение:</u></em>
n=20
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
<em><u>Задание 2.</u></em>
uses Crt;
var
P:real;
M:char;
s:string;
begin
ClrScr;
Write('P='); Readln(P);
Write('M='); Readln(M);
Str(P:0:0,s);
s:=Copy(s,1,3);
if Pos(M,s)>0 then Writeln('Yes') else Writeln('No');
ReadKey
end.
<em><u>Тестовое решение:</u></em>
P=54231.70475438
M=4
Yes