Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.
Всмысле какая задача? (Ну если я правильно понял вопрос,то математическая)
Тут находится только С по формуле: (A+B)*(B-A) и выводит результат (С) на экран.
1. 30*256=7680 - кол-во символов на одной странице.
2. 7680*20=153 600 байтов - кол-во символов всего (на всех страницах).
3. 153 600/1024= 150 Кб - если нужно значение в байтах, то делать не нужно.
const
n = 10;
x = 1;
y = 20;
var
arr: array[1..n] of integer;
tmp: integer;
begin
randomize;
write('Массив: ');
for var m := 1 to n do
begin
arr[m] := random(x, y);
write(arr[m], ' ');
end;
for var i := 1 to n do
begin
for var j := 1 to n - 1 do
begin
if (arr[j] < arr[j + 1]) then
begin
tmp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := tmp;
end;
end;
end;
writeln();
write('После сортировки: ');
for var i := 1 to n do
write(arr[i], ' ');
end.