2^i = 128
i = 7 бит
800 * 7 = 5600 бит
5600 : 8 = 700 байт
700 : 1024 = 0,684 килобайт.
Var i :integer;
begin
for i := 30 downto 10 do
writeln(sqr(i));
readln;
end.
1024*4=4096
1байт-8битов
1Кбайт-1024 байта
1Мбайт-1024 Кбайта
1Гбайт-1024 Мбайта
............................................
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.
<u>Пример</u>
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False