См. приложения.
лист Excel живой, внизу для перехода между заданиями ярлыки
Таблица истинности для двух функций, потому, что фото не четкое.
Немного изменил
Var a:longint;
begin
readln(a);
inc(a);writeln(a);dec(a,2);writeln(a);end.
1. 5120 : 1024 = 5 мб
2. 8192 * 1024 = 8388608 мб
3 70*8=560 бит
4. 32*1024=32768кб
5. 5120 * 8 = 40960 бит
6. 9654 * 1000 = 9654000
7. 1120 : 8 = 140