Пользователь вводит предложение,определить каких букв в предложении больше:"а" или "о" ?
Написать программу в Pascal
Ответы
Ответ дал:
0
begin
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад