Для получения годовой оценки по истории ученику требовалось написать доклад на 4 страницы. Выполняя это задание на компьютере, он набирал текст в кодировке Windows. Какой объем помяти (в Кбайтах) займет доклад, если в каждой строке по 64 символа, а на каждой странице помещается 64 строки? Каждый символ в кодировке Windows занимает 16бит памяти
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.
program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.
program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.
Rows.Clear
Dim n As Integer, k As Integer, i As Integer
n = CInt(InputBox("n="))
k = 2 * n - 1
ReDim y(1 To k) As Integer
Randomize Timer
For i = 1 To k
y(i) = Int(Rnd * 100 - 50)
Next i
Dim ry As Range
Set ry = Range(Cells(2, 2), Cells(2, k + 1))
ry = y
ReDim x(1 To n) As Integer
Dim rx As Range
Set rx = Range(Cells(3, 2), Cells(3, n + 1))
For i = 1 To n
x(i) = y(2 * i - 1) ^ 2
Next i
rx = x
Cells(2, 1) = "y"
Cells(3, 1) = "x"
Set ry = Range(Cells(2, 1), Cells(2, k + 1))
Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub