Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
30 ноября 2022 02:43
703
Дано трёхзначное число. Напишите программу, которая определяет:а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
1
ответ
Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.
0
·
Хороший ответ
2 декабря 2022 02:43
Остались вопросы?
Еще вопросы по категории Информатика
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 10 символов и содержащий только символы из 9 символьного наб...
Укажите способ записи следующего алгоритма: Обозначить первое из заданных чисел Х, второе - Y. Если Х = Y, то перейти к п. 8. Если Х > Y, то пе...
Помогите срочно!( В одной книге было написано 100 следующих утверждений. "В этой книге ровно одно неверное утверждение" "В этой книге ровно два неверн...
Напишите алгоритм, под управлением которого Робот обойдёт прямоугольную область, обнесённую стеной, по периметру и закрасит угловые клетки. Размеры об...
Приехал Петя в гости в поселок, в котором живут рыцари, лжецы и хитрецы, всего их в поселке 1024 человека. Рыцари всегда говорят правду, лжецы всегда...