Program PoiskInt; {Название программы} uses Crt; {Подключаем модуль (для очистки экрана)} const n=100; {Постоянная} var x, Rez: longint; {Аргумент и результат}
begin {Начало программы} ClrScr; {Очистка экрана (именно для этого вызывался Crt)} for x:= -n to n do {Цикл поиска} begin Rez:=sqr(sqr(x))-sqr(x)*x -x-10; {Вычисление очередного значения функции} if Rez=0 then {Сравнение с нулем} Writeln('Rez=',Rez) else {Вывод результата} WriteLn('Не найден'); end; ReadLn; {Ожидание нажатия на клавишу ENTER } end. {Конец программы}
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку