1. Составить программу, которая определяет, сколько в заданном предложении букв "ф". Если такой буквы нет, то на экран вывести слово " нет" 2. Составить программу, в заданном предложении все слова "мой" удалить. Подсчитать сколько осталось букв в этом предложении.

Question

Мария Климова

Информатика

5 января, 17:39

1. Составить программу, которая определяет, сколько в заданном предложении букв "ф". Если такой буквы нет, то на экран вывести слово " нет" 2. Составить программу, в заданном предложении все слова "мой" удалить. Подсчитать сколько осталось букв в этом предложении.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Степан Черный · Answer 1

var s: string;

n, i, x: word;

begin

Writeln ('Введите нужное вам предложение');

readLN (s);

n : = length (s);

for i:=1 to n do

begin

if (S[i]='ф') or (S[i]='Ф') then x:=x+1;

end;