2048*768*8 (глубина цвета)*25*5*60=<span><span>94371840000 бит/8/1024/1024/1024=10,99Гбайт</span></span>
Var i:integer;
begin
for i:=1 to 10 do
writeln(,i,'*7=',i*7);
end.
program se;
uses crt;
var
a,b,n:integer;
begin
writeln('Введите число А: ');
read(a);
writeln('Введите число В: ');
read(b);
writeln('Введите число N: ');
read(n);
if (a > n) and (b > n) then writeln('Больше')else
if (a<n) and (b<n) then writeln('Меньше')else
writeln('В промежутке между А и В');
end.
Блок схему сейчас не могу нарисовать, да и она простейшая.
Function Fx(x:real):real;
begin
if x=1 then Fx:=1e18 { вместо бесконечности }
else if x<0 then Fx:=exp(-x)
else if x<=4.5 then Fx:=1-ln(abs(1-x*x))
else Fx:=2*x
end;
procedure Px(x:real; var y:real);
begin
if x=1 then y:=1e18 { вместо бесконечности }
else if x<0 then y:=exp(-x)
else if x<=4.5 then y:=1-ln(abs(1-x*x))
else y:=2*x
end;
var
x,y:real;
i:integer;
begin
for i:=-4 to 9 do
begin
x:=i;
Px(x,y);
Writeln(x:2,Fx(x):25:3,y:25:3)
end
end.