Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Помогите , пожалуйста. Нужно написать программу в pascal.
Задача: Дана строка состоящая из символов. Заменить каждый четный символ на "!".
спросил от в категории Информатика

1 Ответ

Var s:string;
i:integer;
begin
writeln(Введите строку:);
readln(s);
for i:=1 to length(s) do
 if i mod 2 = 0 then s[i]:=!;
writeln(s);
end.

Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в
ответил от
x
...