ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!!!! Дан текст. Удвоить все буквы этого текста, стоящие в чётных позициях.
Var s:string; i:integer; begin readln(s); for i:=1 to length(s) do if i mod 2 =0 then write(s[i],s[i]) else write(s[i]); end.
А можете решить ещё одну задачу, пожалуйста?)
могу
ПОМОГИТЕ, ПОЖАЛУЙСТА!!! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Дан текст, слова которого разделены одним пробелом. После последнего слова стоит точка. Переставьте первое слово в конец строки.
https://znanija.com/task/21892030
Это ссылка на эту задачу, чтобы вы получили баллы