Диаметр колеса робота равен 35 мм. Он проезжает по прямой 12 см, делает поворот влево на 45 градусов, проезжает вперед 10 см и делает полный разворот вокруг своей оси. Какое расстояние преодалел робот итого? ответ дать в см.

Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.

А давайте!) Я пишу на C, но алгоритм лёгок, и его запросто можно перевести на другой язык.

Итак.

 

int mas [3]; //объявляем массив

mas[0]=1;

mas[1]=2;

mas[2]=3; //присваиваем элементам значения

int i=0; //переменная для цикла

 

for(i=0; i<sizeof(mas)-1; i++){ //пробегаемся по всем элементам массива

if(mas[i]%2==0){ // если остаток от деления - 0, то число четное

mas[i]=mas[i]*mas[i];

}else{ // для нечетных

mas[i]=mas[i]*2;

}

}

 

Ну вот. В принципе, должно работать. Если чего-то непонятно - напишите :)