Если квадрат натурального числа не превосходит 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.
1)1011110
2)10011010
3)11000010
4)110011.1
5)10110110