Задание:
Помогите пожалуйста. Зависит сдача экзамена. Каждую вторую букву слова заменить на! Паскаль
Решение:
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.
Знаете другой ответ?