Пусть объем жесткого диска 160Гб
160Гб = 160 * 1024 * 1024 * 1024 байт = 171 798 691 840 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 171 798 691 840 / 2400 = 71582788
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во
Высота = 223 696 213 / 100 = 715827.88cm = 7158.2788m
//PascalABC.NET 3.1 сборка 1200
const
n = 1000;
begin
var primes := new List<integer>();
for var i := 2 to n do
begin
var f := true;
foreach var prime in primes do
if i mod prime = 0 then begin
f := false;
break;
end;
if f then primes.Add(i);
end;
foreach var prime in primes do
write(prime, ' ');
writeln;
writeln('Время вычисления: ', Milliseconds / 1000);
end.
Подробное решение внутри файла
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.