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. {Конец программы}
3)выделить фрагмент, Вырезать, установить курсор,Вставить
2.Выберите правильный алгоритм создания нового документа в Microsoft Word
3)Файл/Создать
3.В процессе редактирования текста изменяются
3)последовательность символов, слов, абзацев
4.Выберите верный алгоритм копирования формата
3)выделить фрагмент-образец, кнопка Формат по образцу, Выделить фрагмент
5.Для того, чтобы удалить пустую строку, надо нажать клавишу
3)Delete
6.Microsoft Word - это
3)текстовой редактор
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. {Конец программы}