Я учусь в11 классе.
Мне16лет.
Я знаю, что2*2=
4
Сначала вычислим какой объем занимает 1-а страница
2*48*128=12288 Байт;
12288 байт весит 1-а страница, теперь переведем ее в Кбайты
12288/1024 = 12 Кбайт
Осталось посчитать сколько всего страниц. Весь документ весит 720Кб, 1-а страница 12кб
720/12 = 60 страниц
Ответ: 60
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
вы получите факториал 5! = 120.
var
f, i:integer;
begin
f := 1;
for i := 1 to 5 do
f := f * i;
writeln (f);
end.