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

Question

Фросюшка

24 ноября, 13:44

+4

Ответы (1)

Знаете ответ на вопрос?

Мартьян · Answer 1

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.