Висходной строковой величине удвоить все символы,кроме символа "а"

рпипппит рпипппит    3   17.06.2019 07:40    2

Ответы
Liza111333 Liza111333  02.10.2020 03:21
Var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='а' then write(s[i]) else write(s[i],s[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика