Предмет: Информатика,
автор: ibragim1996
выяснить есть ли в трёхзначном числе одинаковые цифры
Ответы
Автор ответа:
0
пишу на паскале
program tralala;
var a,b,c,n:integer;
begin
readln(n);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
if (a=b) or (a=c) or (b=c) then writeln (Есть');
else write('Нету');
end.
Автор ответа:
0
var
s:string[3];
begin
readln(s);
if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then
writeln('Есть') else
writeln('Нет');
end;
Похожие вопросы
Предмет: Қазақ тiлi,
автор: moldiramandykkyzy4
Предмет: Алгебра,
автор: lerusyasinicina
Предмет: Английский язык,
автор: only87049
Предмет: Геометрия,
автор: Блондиночка1996
Предмет: Геометрия,
автор: Блондиночка1996