использовать Чертежник
алг
нач
цел в, г
вывод "Введите количество повторов по вертикали: "
ввод в
вывод "Введите количество повторов по горизонтали: "
ввод г
нц в раз
нц г раз
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (-1,0)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (1,1)
сместиться на вектор (1,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-1)
сместиться на вектор (-1,-1)
сместиться на вектор (-1,0)
сместиться на вектор (-1,1)
поднять перо
сместиться на вектор (-1,0)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (2,2)
сместиться на вектор (1,0)
сместиться на вектор (2,-2)
сместиться на вектор (0,-1)
сместиться на вектор (-2,-2)
сместиться на вектор (-1,0)
сместиться на вектор (-2,2)
поднять перо
сместиться на вектор (5,0)
кц
сместиться на вектор (-(г*3),-3)
кц
кон
Объяснение:
картинка
begin
write ('Введите строку: '); read(s);
for i:=1 to length(s) do
if s[i]='о' then s[i]:='*';
write ('Полученная строка: ',s);
end.