1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
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
Вместо "a := a * a" можно использовать "a := sqr(a)"
--------------------------------------------------------------------
var
a : integer;
begin
write('Введите число: '); //Вывод сообщения
readln(a); //Ввод числа
a := a * a; //Возведение в квадрат
writeln('Введенное число в квадрате = ', a); //Вывод результата
readln;
end.
Перестановки с повторениями
сообщение содержит 3 или 4 цвета.
Вариантов для 3 цвета 3*3*3 = 27
Для 4 цвета подряд 3*3*3*3 = 81
27+81 = 108