Вводится слово. Выяснить, какая из букв первая или последняя встречается в заданном слове чаще. Вывести слово в обратном порядке...

@S_L_Y · Регистрация: 16.11.2010

Студворк — интернет-сервис помощи студентам

...и сколько букв "у" в слове стоит на четных местах?

Заранее благодарен, кто откликнется на помощь.

@S_L_Y · 27.12.2010, 05:41 **[ТС]**

Вот... сам написал.. может кому пригодится:

Pascal

program z;
uses crt;
var s:string;
k,k1,i:integer;
begin
clrscr;
Writeln ('Введите слово');
readln (s);
for i:=1 to length(s) do
if s[i]=s[1] then inc(k)
else if s[i]=s[length(s)] then inc(k1);
if k>k1 then Writeln ('Первая буква встречается чаще')
else if k<k1 then writeln ('Последняя буква встречается чаще ')
else writeln (' Первая и последняя буквы встречаются одинаково');
writeln;
Writeln ('В обратном порядке будет выглядеть так:');
for i:=length(s) downto 1 do
write (s[i]);
readkey;
end.

про букву "у" так и не допер..

@S_L_Y 3 / 3 / 5 Регистрация: 16.11.2010 Сообщений: 24
		1
	Вводится слово. Выяснить, какая из букв первая или последняя встречается в заданном слове чаще. Вывести слово в обратном порядке... 17.11.2010, 22:30. Показов 2268. Ответов 1 Метки нет (Все метки) ...и сколько букв "у" в слове стоит на четных местах? Заранее благодарен, кто откликнется на помощь. 0

Опции темы

Вводится слово. Выяснить, какая из букв первая или последняя встречается в заданном слове чаще. Вывести слово в обратном порядке...

Решение