Книга, набранная с компьютера в кодировке unicode ( один символ кодируется двумя байтами ) , содержит 160 страниц , на каждой странице - 80 строк , в каждой строке - 40 символов. сколько кбайт в книге?
Если квадрат натурального числа не превосходит 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.
Если квадрат натурального числа не превосходит 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.
