ЧЕРЕЗ ЧАС НУЖНО УЖЕ СДАТЬ!​

1440 килобайт

600*1200*2 = 1 440 000 байт = 1440 кб

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.

1695-1696 – пётр первый делал свои знаменитые азовские походы.

1703 – пётр первый основал санкт-петербург. событие произошло 16 мая.

1709 – была полтавская битва, она произошла 27 июня.

пе́рвая мирова́я война́(28 июля  1914 —  11 ноября 1918 гг)