Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var s:string; i:integer;beginreadln (s) ;for i:=1 to length (s) doif s[i]='а' then write (s[i]) else write (s[i], s[i]) ;end.