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

Question

Информатика

Милуша

23 июля, 05:42

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

+4

Ответы (2)

Знаете ответ на вопрос?

Уля · Answer 1

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.

Генаша · Answer 2

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.