57+61+191=309км Незнайка
197+13=210км Поэт Цветик
129+16=145км Торопыжка
34+51=85км Доктор Медуцина
Использовать Робот
алг
нач
нц пока справа свободно
вправо
закрасить
кц
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
нц пока сверху свободно
вверх
закрасить
кц
кон
1.
Var m : array[1..9] of Real;
i : Integer;
Begin
For i:=1 to 9 do Readln(m[i]);
For i:=9 downto 1 do Write(m[i],' ');
Writeln;
end.
2.
Var m : array[1..20] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to 20 do
Begin
m[i]:=-9+Random(29);
If m[i]<0 then m[i]:=-m[i];
end;
For i:=1 to 20 do Write(m[i],' ');
Writeln;
end.
Это ведь скорее математика, а не информатика.
Пусть x - количество синих шаров.
Тогда 2x - количество красных шаров, а 2(2x) - количество зеленых.
x + 2x + 4x = 98, 7x = 98, x = 14
Количество красных шаров = 2*14 = 28