Предмет: Информатика,
автор: Кутузов228
Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. Способ записи выберите самостоятельно.
Ответы
Автор ответа:
0
program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
Интересные вопросы
Предмет: История,
автор: tashenovshahnur17
Предмет: История,
автор: belaiaangelina2007
Предмет: Английский язык,
автор: medeka2010
Предмет: История,
автор: cheeka
Предмет: Литература,
автор: DDJ