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. определить, является ли введенное число тримоформным.

Var a,h,n,b,l:longint;beginwriteln ('введи число');readln (a);h:=a*a*a;b:=a;n:=1;while b>0 do beginb:=b div 10;n:=n*10;end;b:=h mod n;if a=b then writeln ('yes')else writeln ('no');readln;end.

Var a,h:longint;b:integer;beginwriteln ('введи число');readln (a);while a>0 do beginb:=a mod 10;case b of0: 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 beginb:=h mod 10;a:=a*10+b;h:=h div 10;end;writeln (a);readln;end.