Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые
5-9 класс
|
Var a,b,c,x:integer;
begin
readln(x);
a:=x mod 10;
x:=x div 10;
b:=x mod 10;
x:=x div 10;
c:=x mod 10;
if(a=b) or(a=c) or (b=c) then writeln('Yes')
else writeln('No');
end.
Другие вопросы из категории
электроэнергии, которое было израсходовано за расчѐтный месяц, и какова плата за 1 КВт электроэнергии.
Составьте программу, которая выводит на экран сумму четных чисел от 30 до 60
Читайте также
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо