Регистрация
kseniyarigil
04.04.2023 11:47
Информатика
Есть ответ 👍

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

244
355
Посмотреть ответы 2

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

tyon
tyon
4,4(1 оценок)
Var s,ns: string; i: integer; begin write('введите строку символов: '); readln(s); ns: =''; for i: =1 to length(s) do ns: =ns+s[i]+s[i]+s[i]; writeln('новая строка:   ',ns); end.
milaB67
milaB67
4,8(43 оценок)
Delete = del (сокр.)

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