Предмет: Информатика,
автор: kirane
плиииз!!!люди решите!!!напишите программу определяющую какая из букв первая или последняя встречаются в заданном слове чаще
Ответы
Автор ответа:
0
На паскале
var s:string; f,l,i:integer;
begin
read(s);
for i:=2 to length(s)-1 do begin if s[i]=s[1] then f:=f+1; if s[i]=s[length(s)] then l:=l+1 end;
if f>l then write('Первая')
else if l>f then write('Последняя')
else write('Одинаково')
end.
var s:string; f,l,i:integer;
begin
read(s);
for i:=2 to length(s)-1 do begin if s[i]=s[1] then f:=f+1; if s[i]=s[length(s)] then l:=l+1 end;
if f>l then write('Первая')
else if l>f then write('Последняя')
else write('Одинаково')
end.
Похожие вопросы
Предмет: Математика,
автор: MollyMikado
Предмет: Другие предметы,
автор: anastasisamoilenko
Предмет: Химия,
автор: marynagavryk940
Предмет: Математика,
автор: danil7041
Предмет: Математика,
автор: Danil228666