Uses Crt;
const a=0;
b=10;
n=15;
var i: longint;
Rez: longint;
begin
ClrScr;
WriteLn ('Task 1:');
for i:=10 to 35 do
Writeln(i:3);
Delay (2000);
WriteLn ('Task 2:');
for i:=5 to n do
Writeln(i*i:5);
Delay (2000);
WriteLn ('Task 3:');
for i:=a to 50 do
begin
Rez:=i*i*i;
Writeln(Rez:7);
end;
Delay(2000);
WriteLn ('Task 4:');
for i:=a to b do
Writeln(i:3);
ReadLn;
end.
Диапазон -8..14 содержит в себе нуль, т.е. самый простой вариант ответа: Произведение этих чисел равно нулю.
Но если не рассматривать нуль в качестве множителя, то ответ: 3515028701184000
Var p : BigInteger;
i : Integer;
Begin
p:=1;
For i:=-8 to 14 do If i<>0 then p:=p*i;
Writeln(p);
end.
1бит-1символ
8бит-1байт
1) 480*8=38400 бит(символов)
2) 24*20*16=7680 символов всего
3) 38400:7680= 5 страниц