Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу в Pascal abc, утраивающую каждую букву в заданной строке.
пример ввода: кот
пример вывода : кккоооттт

Ответ оставил Гость

Var S,T:string;
i,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
T:=T+S[i]+S[i]+S[i];
Writeln(T);
end.