Информатика, опубликовано 2018-08-22 22:26:09 by Гость
Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые
Ответ оставил Гость
Var
n: integer;
begin
readln(n);
if (n mod 10 = n div 10 mod 10) or (n mod 10 = n div 100) or (n div 10 mod 10 = n div 100) then
writeln(Есть)
else
writeln(Нет);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.