Информатика, опубликовано 2018-08-22 19:24:26 by Гость
Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы.В программе паскаль !! Срочно !!!!
Ответ оставил Гость
Var s: string;
i, j, k: integer;
a: array [1..256] of char;
begin
readln(s);
for i:= 1 to length(s) do begin
for j:= 1 to k do
if a[j] = s[i] then begin
writeln(Есть);
exit;
end;
a[i]:= s[i];
inc(k);
end;
writeln(Нет);
end.
Попрошу отметить, как лучшее решение
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на