Составить программу позволяющую удвоить все буквы а в строке

Question

Информатика

Диана

30 октября, 06:41

Составить программу позволяющую удвоить все буквы а в строке

+4

Ответы (2)

Знаете ответ?

Еля · Answer 1

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.

Вассочка · Answer 2

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.