Паскаль АВС! Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y.
Answers & Comments
JustPeopleVAR 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.
Answers & Comments
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.