выяснить есть ли в трёхзначном числе одинаковые цифры
10-11 класс
|
пишу на паскале
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.
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;
Другие вопросы из категории
если k=1357, то S=7531
Читайте также
Пользователь вводит число заранее неизвестное.
Выяснить есть ли в этом числе хотя бы две одинаковые цифры.
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
определить, верно ли, что данное число кратно 3.