Succ(round(5/2)-pred(3)) обчислить значение выражения ( Object Pascal)​

в лодку помещается 2 человека? если так, то решение будет:

1. сперва перевправляются 2 , один возвращается назад на лодке.

2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .

3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .

4. переплывают 2 оставшихся .

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

x2: =x*x

x4: =x2*x2

t: =x4*x4 | =x^8

t: =t*x2|=x^10

t: =t*t

t: =t/x  |=x^15

t: =t*x4 |=x^19

по сути простенькая.

v=u*t

объем = скорости передачи умноженная на время

v= 7680*90 (90сек=1.5 мин. секунды это система си)

v= 691200бит

v одного символа 16бит, а всего 400 символов на странице => вес страницы равен 16*400=6400 бит

чтобы найти количество страниц надо общий объем поделить на объем одной страницы.

691200/6400=108

ответ: всего было передано 108 страниц.