Меню сайта

Задача №42

Найти наименьшее однозначное число х удовлетворяющее условию x*x*x-x*x=n.


Program ciklp_5-

uses crt-

var x,n : longint-

ot : boolean-

begin

clrscr-

write(‘n = ‘)-readln(n)-

ot:=false-

x:=1-

repeat

inc(x)-

if x*x*x-x*x=n then ot:=true-

until — ((x*x*x-x*x=n) or (x=10))-

if ot=false then write(‘нет’)

else write(‘x=’,x)-

readln-

end.

Категория: Циклы | Дата: 10.11.12

Меню раздела
Блок