32 = 2^5 значит 5 бит на цвет/пиксель
5*600*900 бит = 2 700 000 бит = 337 500 байт = 329.58984375 кб
program raf105;
var
a,i,n,c: integer;
x,x2: boolean;
begin
write('Введите количество чисел: ');
readln(n);
writeln('Вводите ',n,' чисел по очереди');
readln(a);
if a >= 0
then x2:= True
else x2:= False;
for i:=2 to n do
begin
readln(a);
if a >= 0
then x:= True
else x:= False;
if x <> x2
then c:= c+1;
x2:= x;
end;
writeln('Количество изменений знака: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
<span>///#1program Number1;
var b, xi: Integer;
x, y: Real;
begin
Writeln('Enter number B:');
Read(b);
if (b < 10) then Writeln(2 * b)
else if (b >= 10) then
begin
for xi := -3 to 1 do
begin
x := x + 0.1;
y := sqr(x) - x + (sin(1 / b + x) / cos(1 / b + x));
Writeln('X= ', x:0:1, ' Y= ', y:0:1);
end;
end;
end.
//////#2
var n,j,s:Integer; ser:Real;
X:Array[1..10000] of Integer;
Begin
writeln('Enter N: ');
Read(n);
for j:=1 to n do Read(X[j]);
for j:=1 to n do if (X[j]<-2) or (X[j]>2) then s:=s+X[j];
av:=s/n;
if (av>2) then
begin
X[1]:=1;
X[n]:=1;
end
else
begin
X[1]:=0;
X[n]:=0;
end;
for j:=1 to n do Write(X[j],' ');
end.
/////#3
var n,s,p:Integer;
A:Array[1..10000] of Integer;
Begin
Write('Enter N: ');
Read(n);
for p:=1 to n do Read(A[p]);
for p:=1 to n do
if (A[p]>0) and (A[p] mod 3 <> 0) then s:=s+A[p];
for p:=n div 2 to n do A[p]:=s;
for p:=1 to n do Writeln('Otvet: ',A[p]);
end.</span>
Function Max(a,b:real):real;
begin
if a>b then Max:=a
else Max:=b
end;
var
a,b,c,d,e,m:real;
i:integer;
begin
Writeln('Введите 5 чисел: ');
Read(a,b,c,d,e);
m:=Max(a,b);
m:=Max(m,c);
m:=Max(m,d);
m:=Max(m,e);
Writeln('Максимум: ',m)
end.
<u>Пример</u>
Введите 5 чисел:
2.3 4 -5.16 0 0.087
Максимум: 4