Это будет 2 в 20й степени бит, то есть 1024 кбита.
Program ABC;
Uses CRT;
var
a,b:real;
c:char;
begin
ClrScr;
repeat
Writeln('la-la-la');
Write('Если хотите вычислить сумму, то нажмите С,');
Writeln(' произведение- D, операцию деления -E ');
Writeln('Для завершения работы нажмите Q');
c:=ReadKey;
case c of
'C','c':begin
Write('Сложение: введите слагаемые: '); Read(a,b);
Writeln('Сумма равна ',a+b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'D','d':begin
Write('Умножение: введите сомножители: '); Read(a,b);
Writeln('Произведение равно ',a*b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'E','e':begin
Write('Деление: введите делимое и делитель: '); Read(a,b);
Writeln('Частное равно ',a/b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'Q','q':;
else begin
Writeln(#13#10,'Error, please enter C, E or D',#13#10);
end
end;
until c in ['Q','q'];
Writeln('Ждем Вас снова!');
Readkey
end.
Ответ:
алг
нач
цел n,t,m,r,s
ввод n
ввод t
ввод m
ввод r
ввод s
если m*n+r*t=s то вывод "спасибо за покупку" все
если m*n+r*t>s то вывод "доплатите еще" все
если m*n+r*t<s то вывод "возьмите сдачу" все
кон
Восемь бит - это один байт.
В одном килобайте 1024 байта.
Объём одной страницы текста: V1=64*12=768 байт
У нас их 32 т.е. объём книги 32*768=24 576 байт
Переводим в килобайты 24 576 / 1024= 24 Килобайта
Ответ: 24 Килобайта.
1. X - (sqr(X) / 3) + (sqr(X) / 5);
2. i * n * abs(cos(X)) / i * n * (1 + sqr(X)) = abs(cos(X)) / (1 + sqr(X));
3. (sqr(X) - 7 * X + 10) / (sqr(X) - 8 * X + 12).