Предмет: Информатика,
автор: bva7400
.Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. .......
В программе паскаль !!!Срочно !!
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: galina06101979
Предмет: Английский язык,
автор: Volenka1
Предмет: Английский язык,
автор: erkeberikbolqyzy
Предмет: Геометрия,
автор: marinka31
Предмет: Химия,
автор: asssssya