Регистрация
fgdfc1
08.03.2022 12:58
Информатика
Есть ответ 👍

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

255
278
Посмотреть ответы 3

Ответы на вопрос:

Sanya339
Sanya339
4,8(41 оценок)
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.
sabitova872149
sabitova872149
4,7(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.
yackubovitchso
yackubovitchso
4,7(60 оценок)
Впервом c конечно, а во втором, точно знаю что по такой можно (n+1/2)*n

Популярно: Информатика