Сколько видеороликов с краткими руководствами интегрировано в ПО EV3?

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.