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

Как то так получилось var n: uint64; begin read(n); if(n*n*n mod round((power(10,inttostr(n). = n) then writeln('yes') else writeln('no'); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   range(5,readinteger('b='),5)           .foreach(x-> writeln(x: 3,7*x**3+2/3*x+sqrt(x)-4: 25: 13)) end. пример b= 24   5              876.5694013108330   10            7005.8289443268400   15          23634.8729833462000   20          56013.8054692883000

1.здесь вводим в цикле число и сразу же записываем в список (квадратные скобки), затем применяем встроенную функцию вычисления суммы списка sum и тут же выводим результат. в результате получилось использовать только одну переменную для цикла for  программа: print(sum([int( for i in range(10)])) 2. n=int(  # вводим число n k=0                #задаем начальное значение счетчика =0 for i in range(n):     #в цикле от 0 до n-1 раз выполняем     if int(==0:     #если введенное число равно 0         k+=1                  #то счетчик увеличиваем на 1 print(k)    #вывод результата 3.здесь лесенка строится из строк чисел, где каждая следующая строка ровно на один последний новый символ длиннее предыдущей: 1 12 123  то есть достаточно приклеивать к предущей строке новый последний символ и получится лесенка! программа:   n=int(    #вводим число n s=''                    #задаем пустую строку for i in range(1,n+1):     #в цикле от 1 до n выполняем     s+=str(i)        #приклеиваем к предыдущей строке новую букву i     print(s)        #выводим строку символов 4. чтобы обойтись без проверки нечетности чисел, достаточно найти ближайшее нечетное число к началу интервала а: допустим, что а=8, тогда a//2*2+1 дает 8//2*2+1=4*2+1=9 (здесь // - нахождение целой части от деления) допустим теперь, что а=9, тогда а//2*2+1=9//2*2+1=4*2+1=9. так что формула a=a//2*2+1 всегда дает в результате ближайшее справа нечетное число, если число четное, и оставляет число без изменения, если число уже было нечетным. теперь генерируем список всех нечетных чисел, задавая в операторе range шаг =2, т.е. будем сразу перепрыгивать от нечетного к нечетному числу! после получения списка нечетных чисел дадим команду сортировки в обратном направлении reverse и выводим полученный список!   программа: a=int(  #задаем начальное значение интервала а b=int(  #задаем конечное значение интервала в a=a//2*2+1      #вычисляем ближайшее справа от а нечетное число x=[]                  #задаем пустой список for i in range(a,b+1,2):     # открываем цикл от а до в с шагом 2     x+=[i]          #записываем получаемые нечетные числа в список х x.reverse()      #задаем обратный порядок списка for i in x:           #в цикле по списку х     print(i)        #выводим все значения списка х