14. Дано трехзначное натуральное число.
а) Определить, входят ли в него цифры а или б.
б) Определить, входят ли в него цифры а и б.
в) Записать новое число, порядок цифр которого является обратным относительно заданного.
а)
var
num,a,b:integer;
begin
write('Введите число: ');
readln(num);
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
if(num mod 10 = a) or (num mod 10 = b) or (num div 100 = a) or (num div 100 = b) or ((num div 10) mod 10 = a) or ((num div 10) mod 10 = b) then writeln('Есть. ')
else writeln('Нет. ');
end.
==============================
в)
var
num,counter,new_number:integer;
begin
write('Введите число: ');
readln(num);
new_number := 0;
counter := 1;
repeat
new_number := (new_number * counter) + num mod 10;
counter := 10;
num := num div 10;
until num = 0;
writeln('Новое число: ',new_number);
end.
⇢