1. У чому полягає зміст багаторівневої нумерації? * 1Елементи списку нумеруються залежно від абзацу 2Елементи списку нумеруються залежно від рівня вкладеності 3Елементи списку нумеруються залежно від маркера 4Елементи списку нумеруються залежно від літери 5Елементи списку нумеруються залежно від номера 2.Для чого застосовують режим структури документа? * 1Для організації документів великого обсягу 2Для нумерації змісту, розділів і підрозділів різних рівнів 3Для організації документів малого обсягу 4Для організації списків великого обсягу ОЧЕНЬ
Ответы
Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дана программа. Table Количество ячеек в таблице
Автор: васильевич
такие задания не понимаю от слова совсем
Автор: appbiznessm
Достоинства и недостатки таких сетей (топологии) 30б
Автор: MISAKOVNA49
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.