Напишите программу на 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.
Результат:
кукуруза
Не нашли ответ?
Похожие вопросы