триморфное число

@iYoung · Регистрация: 06.10.2009

Студворк — интернет-сервис помощи студентам

найти триморфное число с порядковым номером Н . Запись триморфного числа , возведенного в куб , заканчивается цифрами самого числа . например 76 в кубе = 438976. Первое триморфное число - 1, второе - 4 и тд .

С паскалем почти не знаком , так что нужна помощь ) я так понимаю , что тут надо делать через массив , но я не знаю как ... Определить триморфное число я понял как , а вот как это использовать в задаче я не знаю .. Помогите пожалуйста . все, что сделал

Pascal

var
p,n : longint;
 
begin
readln (n);
p:=(n*n*n);
if (p-n) mod 10 = 0 then 
writeln ('trimorfnoe') else
writeln ('net');
end.

Добавлено через 16 минут
ну помогите )))

@tururui · 09.12.2009, 23:05

Pascal

var
p,n : longint;
 
begin
writeln('Vvedite cislo');
readln (n);
p:=(n*n*n);
if p mod 10 = n then
begin
writeln(p:2);
writeln ('trimorfnoe')
end else
writeln ('net');
readln;
end.

Опции темы