Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y. Паскаль!!!
5-9 класс
|
var x,temp:string;
first,last:char;
k1,k2:integer;
begin
write ('X = ');
readln (x);
k1:=0;
k2:=0;
first:=x[1];
last:=x[length(x)];
temp:=x;
while (pos(first,temp)>0) do
begin
inc(k1);
delete (temp,pos(first,temp),1);
end;
temp:=x;
while (pos(last,temp)>0) do
begin
inc(k2);
delete (temp,pos(last,temp),1);
end;
if (k1>k2) then writeln ('First') else
if (k2>k1) then writeln ('Last') else
writeln ('Equal');
end.
Я не знаю,что такое прога)))
Комментарий удален
Неа, что то она не по условию
Другие вопросы из категории
Дана последовательность целых чисел,заканчивающаяся нулем.Написать программу,которая выводит последнее ненулевое число последовательности.
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня.
Составить программу, определяющую, какой суммарный путь пробежал спортсмен за 7 дней.
программу определяющую каких элементов в точке больше положительных или отрицательных
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль