Напишите программу на Pascal ABC,которая ''решает ребус'':

Напишите программу на Pascal ABC,которая ''решает ребус'':
Гость
Ответ(ы) на вопрос:
Гость
var s1,s2,s:string; i:integer; begin s1:='курица'; s2:='роза'; s:=s1[1]+s1[2]+s1[1]+s1[2]+s2; for i:=5 to length(s) do if s[i]='о' then s[i]:='у'; writeln(s); end. Результат: кукуруза
Не нашли ответ?
Ответить на вопрос
Похожие вопросы