Сколько времени потребуется для ввода в память компьютера текста романа Джорджа Р. Р. Мартина «Игра престолов» (792 страницы) с сканера и программы для распознавания текста, если известно, что на сканирование одной страницы уходит 5 секунд, на смену страницы в сканере — 4 секунды, на распознавание 6 секунд?

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

красный и синий = фиолетовый

красный и зеленый = желтый

зеленый и синий = голубой

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.