32 * 1024 * 768 бит = 32 * 1024 * 768 / 8 байт = 32 * 1024 * 768 * 8 / 1024 / 1024 = 3 Mb
Начало
Присвоить С=14
Метка1: Если C>130 Тогда ВЫХОД
С=С+1
Вывод С
Вывод Символ ':'
Вывод 1,8*C+32
Вывод Символ перевода строки
Перейти Метка1
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
1. Посмотреть в корзине - может папку удалили
2. Воспользоваться поиском по всему диску, может ее переместили