Паскаль АВС! Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y.
5-9 класс
|
VAR
s: String;
k1,k2,i: LongInt;
BEGIN
Read(s);
k1 := 0; k2 := 0;
for i := 1 to Length(s) do begin
if (s[i] = s[1]) then Inc(k1);
if (s[i] = s[Length(s)]) then Inc(k2);
end;
if (k1 > k2) then Write('Первая буква встречается чаще последней буквы.');
if (k1 < k2) then Write('Последняя буква встречается чаще первой буквы.');
if (k1 = k2) then Write('Первая и последняя буквы встречаются одинаковое кол-во раз.');
END.
Другие вопросы из категории
1. Даны четыре действительных числа a, b, c, x. Выяснить, пройдёт ли кирпич со сторонами a, b, c, в круглое отверстие радиуса x?
2. Дано трёхзначное натуральное число. Найти сумму цифр этого числа.
3. В данном двузначном натуральном числе подсчитать, сколько цифр больших 6, но меньших 9.
4. Даны три действительных числа больших нуля. Выяснить, являются ли они сторонами прямоугольного треугольника?
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня.
Составить программу, определяющую, какой суммарный путь пробежал спортсмен за 7 дней.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!