Движение робота по линии. Урок 1 определяет сумму числовых значений цветов пятого и конечного полей
определяет сумму числовых значений цветов шестого и конечного полей
определяет сумму числовых значений цветов начального и шестого полей
определяет сумму числовых значений цветов начального и конечного (полей

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

7680*90=691200

691200/16=43200

43200/400=108 страниц

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.