Предмет: Информатика,
автор: кукла1124244
Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных данных: 123 121 122 Пример выходных данных: Нет Да Да
Ответы
Автор ответа:
0
Program n1;
var n,i,d1,d2,d3: integer;
begin
readln(n);
d1:=n div 100;
d3:= n mod 10;
d2:=(n div 10 )mod 10;
if(d1=d2) or (d2=d3) or (d1=d3) then write('Да') else write('Нет');
end.
var n,i,d1,d2,d3: integer;
begin
readln(n);
d1:=n div 100;
d3:= n mod 10;
d2:=(n div 10 )mod 10;
if(d1=d2) or (d2=d3) or (d1=d3) then write('Да') else write('Нет');
end.
Интересные вопросы
Предмет: Математика,
автор: ryzkovs178
Предмет: Информатика,
автор: mishagnes077
Предмет: Обществознание,
автор: ererw2q
Предмет: Математика,
автор: znarets