Var s:string;
i:integer;
begin
writeln ('введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б' else
if s[i]='б' then s[i]:='а' ;
end;
writeln(s);end.
В эту программу нужно добавить условие: склеить слово из букв стоящих на четных позиций
ПАСКАЛЬ
Var s:string;
i:integer;
begin
writeln ('введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б' else
if s[i]='б' then s[i]:='а' ;
end;
writeln(s);end.
В эту программу нужно добавить условие: склеить слово из букв стоящих на четных позиций
ПАСКАЛЬ
i:integer;
begin
writeln ('введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б' else
if s[i]='б' then s[i]:='а' ;
end;
writeln(s);end.
В эту программу нужно добавить условие: склеить слово из букв стоящих на четных позиций
ПАСКАЛЬ
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var
s:string;
i:integer;
newString: string;
Begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then
s[i]:='б'
else if s[i]='б' then
s[i]:='а';
end;
newString := '';
for i:=1 to length(s) do begin
if (i mod 2 = 0) then
newString := newString + s[i];
end;
writeln('Преобразованная строка:', s);
writeln('Слово из букв, стоящих на четных позициях:', newString);
End.