2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт
Uses crt;
VAR A,B,C:integer;
begin clrscr;
A:=B*C
readkey;
end.
Нужно умножить каждую единицу на двойку в степени n, где n - это позиция единицы справа начиная с нуля
здесь на "первом" месте справа (считаем с нуля) стоит ноль, поэтому нет 2^1
Program t2; var a: integer; Begin write ('Введите колличество суток'); read (a);writeln ('Колличество часов ', a*24);writeln ('Колличество минут ',a*24*60);writeln ('Колличество секунд ',a*24*60*60); end.
1набрать полное А
перелить все А в В
набрать полное А
доливать из А воду в В пока В не наполниться
в А осталось 2 литра
2(набрать полное А
перелить все А в В)-3 раза
набрать полное А
доливать из А воду в В пока В не наполниться
вылить В
перелить А в В
набрать полное А
долить А в В
в В 5 литров
3 (набрать полное А
вылить А в В )-2 раза
набрать полное А
доливать из А воду в В пока В не наполниться
в А осталось 2 литра
