Дан алгоритм для Робота:

алг
нач
нц 34 раз
вправо; закрасить
кц
кон

1 Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 34 клеток вправо.
2 Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 34 клеток влево и закрасит эти клетки.
3 Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 34 клеток вправо и закрасит эти клетки.
4 Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа

они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.

var s: real;

      i,n: integer;

begin

  s: =0;

  n: =0;

  for i: =250 to 500 do begin

    if (i mod 5=0) and (i mod 7=0) then begin s: =s+i; n: =n+1;

                                                          end;

                                end;

  s: =s/n;

  writeln(s);

end.