Помогите, пожалуйста! Очень вас прошу! Через паскаль! Не использовать: const, count,...

Question

Помогите, пожалуйста! Очень вас прошу! Через паскаль!
Не использовать: const, count, label metka. Просто недавно прошли тему: «Поиск наибольшего или наименьшего элемента массива» (ну, это Max, min). А также num, res
Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат, которого не превосходит число 225.
Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода и не входит в последовательность).
Программа должна вывести одно число: наибольшее число в последовательности, квадрат которого не превышает число 225.

Answer 1

program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
    if a*a>225 then
            writeln('Slishkom bolshoe chislo')
    else
            if max

until a=0;
readln;
writeln('max=',max);
end.

Comments

спасибо! слушай, а без repeat и until, ну как то можно без них составить программу

---

По теории программирования можно на одних ифах, но это длинная последовательность из одинаковых кусков, превосходящая терпение пользователя по вводу чисел. У тебя не известно количество, а значит это уже или переход (label) или цикл. Так как количество проходов не известно есть только 2 варианта repeat until и do while. Других вариантов нет. С переходами писал прошлый раз.