Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Составить программу, которая запрашивает предложение и выводит на экран все его буквы "и". Программу составить при помощи Pascal ABC

Ответ оставил Гость

var
  s: string;
  i: integer;
begin
  readln(s);
  for i := 1 to length(s) do
    if(s[i] = и) or (s[i] = И) then write(s[i], );
end.