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

Question

Аленя

30 июля, 12:38

+3

Ответы (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.