Мартын
7 год назад
ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!!!! Дан текст. Удвоить все буквы этого текста, стоящие в чётных позициях.
ОТВЕТЫ
Исаакович
Jul 11, 2019
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.
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.
169
Смежные вопросы:
