Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A<0 then A:=A*A;
WriteLn(A)
End.
Var
X,Z:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Z:=X*X;
WriteLn('Z = ',Z);
End.
В этой программе создан новый тип для А, В...
стандартный символьный тип для у, т.е. для одного какого-то символа
целочисленный в пределах -32 тыс. + 32 тыс.
Думаю что 0.Символ ,,&"Нет в поисковой системе.Ну это не точно)
Всего Алина потратила одну тысячу триста пятьдесят два рубля одиннадцать копеек.
* N = 800
* N = 2i - формула
* 800 = 2i
9 < i < 10, берем в большую сторону, i = 10 - вес одного кода.
* 320 кодов = 320 * 10 = 3200 бит. Переведем в байты:
3200/8 = 400 байт.
Ответ: 400