Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
30 ноября 2022 02:43
665
Дано трёхзначное число. Напишите программу, которая определяет:а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 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
Остались вопросы?
Еще вопросы по категории Информатика
Между населенными пунктами А, В, D, Е построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшег...
Разрешение экрана 640 на 480 точек. Какой объём видеопамяти займёт цветное изображение? Ответ дайте в килобайтах....
найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. С помощью паскаля через цикл re...
Определи значение переменной kk после выполнения фрагмента программы: i := 2; k := 2; while i k := k * 2; i := i + 1; end;...
ПОМОГИТЕ ПОЖАЛУЙСТА ЭТО СРОЧНО . По заданному алгоритму составь блок-схему...