.Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. ....... В программе паскаль !!!Срочно !!
.Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. .......
В программе паскаль !!!Срочно !!
Гость
Ответ(ы) на вопрос:
Гостьvar s:string;
i,j,d,k:integer;
begin
readln(s);
d:=length(s);
k:=(-1)*d;
for i:=1 to d do
for j:=1 to d do
if s[i]=s[j] then k:=k+1;
if k=0 then writeln('нет') else writeln('есть');
end.
Не нашли ответ?
Похожие вопросы