var
s : integer;
m : BigInteger;
begin
m := 1;
writeln('даны числа: 1..20');
for var i := 1 to 20 do begin
s := s+(i*i);
m := m*(i*i);
end;
writeln('сумма квадратов = ', s);
writeln('произведение квадратов = ', m);
end.
Если время дано с точностью до минуты, то
![\displaystyle \frac{2^{27}}{365\times24\times60}\approx 256](https://tex.z-dn.net/?f=%5Cdisplaystyle++%5Cfrac%7B2%5E%7B27%7D%7D%7B365%5Ctimes24%5Ctimes60%7D%5Capprox+256+)
Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")
что нужно с ним сделать напиши полное условие задачи
<span>1) 1 Кбайт = 1024 байт = 8192 бит
2) 0.1083984375 Кбайт = 111 байт = 888 бит
3) 2 Кбайт = 2048 байт = 16384 бит</span>