1) Дано число. Получить новое число с обратным значением цифр, где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются. (например, число 1379 перепишем как 8679)

2) Триморфное число - число, запись куба которого оканчивается цифрами самого этого числа. Например, 43 = 64, 243 = 13 824, 2493 = 15 438 249. определить, является ли введенное число тримоформным.

Question

Информатика

Флёна

3 октября, 02:02

1) Дано число. Получить новое число с обратным значением цифр, где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются. (например, число 1379 перепишем как 8679)

2) Триморфное число - число, запись куба которого оканчивается цифрами самого этого числа. Например, 43 = 64, 243 = 13 824, 2493 = 15 438 249. определить, является ли введенное число тримоформным.

+2

Ответы (1)

Знаете ответ на вопрос?

Евстолия · Answer 1

Var a, h:longint;

b:integer;

begin

writeln ('введи число') ;

readln (a) ;

while a>0 do begin

b:=a mod 10;

case b of

0: b:=9;

1: b:=8;

2: b:=7;

3: b:=6;

4: b:=5;

end;

h:=h*10+b;

a:=a div 10;

end;

a:+0;

while h>0 do begin

b:=h mod 10;

a:=a*10+b;

h:=h div 10;

end;

writeln (a) ;

readln;

end.