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. определить, является ли введенное число тримоформным.
Ответы на вопрос
Ответил Аленусик
0
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.
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.
Ответил Аленусик
0
Var a,h,n,b,l:longint;
begin
writeln ('введи число');
readln (a);
h:=a*a*a;
b:=a;
n:=1;
while b>0 do begin
b:=b div 10;
n:=n*10;
end;
b:=h mod n;
if a=b then writeln ('yes')
else writeln ('no');
readln;
end.
begin
writeln ('введи число');
readln (a);
h:=a*a*a;
b:=a;
n:=1;
while b>0 do begin
b:=b div 10;
n:=n*10;
end;
b:=h mod n;
if a=b then writeln ('yes')
else writeln ('no');
readln;
end.
Новые вопросы