Составьте программу, которая запросит имя пользователя и напечатает его в столбик 100 раз

139

158

Посмотреть ответы 1

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

kirpol83p01doz

Информатика

4,4(28 оценок)

Как-то так. var s,tx: string; i: integer; begin writeln ('введите строку'); readln(s); for i: =1 to length(s) do begin if s[i]='а' then s[i]: ='б' else if s[i]='б' then s[i]: ='а'; if i mod 2=0 then tx: =tx+s[i]; end; writeln(s); writeln(tx); end.