Регистрация
kislova04
30.09.2021 15:12
Информатика
Есть ответ 👍

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

216
392
Посмотреть ответы 3

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

gjhjcznrj
gjhjcznrj
4,4(20 оценок)
Var s : string; i : byte; begin   readln(s);   for i: =length(s) downto 1 do insert(s[i]+s[i],s,i);   writeln(s); end.
ilona122
ilona122
4,6(93 оценок)
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.
almaz2008
almaz2008
4,6(76 оценок)

flowers trees roses chamomile poppy

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