Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
1.-1;
2.-4;
3.-5;
4.-6;
5.-2;
6.-3;
10010111=
2625252625262626
10000000=2625252525252525
10010010
=262525262525262520
12,7 * (600/2,54) = 3000 пикс ширина
12,7 * (1200/2,54) = 6000 пикс высота
3000 * 6000 * 4 = 72000000 бит / 8 / 1024 / 1024 = ~ 8 мегабайт