Робот-чертёжник движется по ровной горизонтальной поверхности и наносит на неё изображение (см. схему поля) при кисти, закреплённой в центре
колёсной базы.
о)
к
Схема поля
Данное изображение (траектория) составлено из полуокружностей, радиус
каждой из которых больше в 2 раза по сравнению с предыдущей. Диаметр
самой маленькой из полуокружностей равен 1 м.
Определите, чему равна длина траектории. При расчётах примите пx 3. ответ
дайте в сантиметрах, при необходимости округлив результат до целых. В ответ
запишите только число.
MN

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

 

блок схема,в jpeg формате (картинка ) сделана в word 2007.у вас ошибка составление программы (var max,x,e: real; ) [хотя вы запрашиваете x,y]

 

картинка загружаться не хочет =),на сайт.

зеркало

 

 

 

 

а если число

 

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

 

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

 

end.

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50