Информатика, опубликовано 2018-08-22 22:15:36 by Гость
1.Составить программу, которая определяет номера позиций символа","2. Составить программу, которая позволяет заменить все гласные символом "*"
Ответ оставил Гость
{1.}
var
i: integer;
s: string;
begin
write(Введите строку: );
read(s);
writeln(Номера позиций символа ",": );
for i := 1 to length(s) do
if s[i] = , then write(i:4);
end.
{2.}
var
i: integer; s: string;
begin
writeln(Введите строку: );
read(s);
for i := 1 to length(s) do
if s[i] in [а, о, э, и, у, ы, е, ё, ю, я] then s[i] := *; writeln(s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на