В компьютере предел значения
можно приблизительно найти, как
где max(real) - максимальное число, представимое в компьютере.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Writeln((real.MaxValue-1)/real.MaxValue)
end.
<u>Результат</u>1
13 мб = 13631488 байт
128 мб = 0,13 гб
0,12 мб = 1006632,96 бит
0,01 гб = 10485,76 кб
<span>40960</span> бит = 5 кб
Рабочий код во вложениях. Удачи.
P.s. Комментарии 1) // первая цифра числа //
2) // вторая цифра числа //
3) // третья цифра числа //
Var k,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(a[i,j]);
end; k:=1;
for i:=1 to n do
for j:=1 to n do
if j mod 2=0 then k:=k*a[i,j];
writeln(k);
<span>end.</span>
uses WinCrt;
var
a, s: real;
begin
write('Введите сторону квадрата: ');
readln(a);
s:=a*a;
writeln('Площадь квадрата: ',s:5:2);
<span>end.</span>