Предмет: Информатика,
автор: colnhe15
дано трехзначное число. Напишите программу, которая определяет:
а) есть ли среди цифр заданного целого трехзначного числа одинаковые
пример входных данных: пример выходных данных:
123 нет
121 да
222 да
Ответы
Автор ответа:
0
ну если я правильно понял то что тут написано то вот на pascal'e.. )
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
end.
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
end.
Интересные вопросы
Предмет: Математика,
автор: vikibol011132
Предмет: Химия,
автор: nekitzor27
Предмет: Алгебра,
автор: Nutellapersi
Предмет: Геометрия,
автор: Аноним
Предмет: Алгебра,
автор: Masanya99