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

Question

Андреич

15 июля, 10:04

+2

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