1.Составить программу, которая определяет номера позиций символа","2. Составить...

Question

1.Составить программу, которая определяет номера позиций символа","
2. Составить программу, которая позволяет заменить все гласные символом "*"

Answer 1

{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.