Помогите пожалуйста. Зависит сдача экзамена

Question

Помогите пожалуйста. Зависит сдача экзамена. Каждую вторую букву слова заменить на! Паскаль

Answer 1

53

ilma55

18 апреля 2023

var a: string; i: integer; begin writeln ('Введите слово'); readln (a); for i: =1 to length (a) do //length (a) — длина строки if i mod 2=0 then a[i]: ='! '; //если номер символа четный, то символ равен! writeln (a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: