Составить программу позволяющую удвоить все буквы а в строке
Составить программу позволяющую удвоить все буквы а в строке
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],a[i]);
end;
end.
Гостьvar s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
end.
Не нашли ответ?
Похожие вопросы