24^(9) бит=3,3×10^(11) байт
1 терабайт=1×10^(12) байт
24^(9) бит=0,33 терабайт
Смотри вложение
................................
PROGRAM PR12_NV;
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE(' a = ');
READLN(A);
Y:=0;
FOR I:= 1 TO 10 DO
BEGIN
Y:= Y+ I*LN(A);
END;
WRITELN(' Y = ', Y:12:6);
END.
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.