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<a then max:=a       ;

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

Answer 2

Для решения этой задачи вам понадобится переменная, которая будет хранить наибольшее число, квадрат которого не превосходит 225, и переменная для хранения текущего введенного числа. Вам нужно будет считывать числа до тех пор, пока не встретится число 0, и на каждой итерации проверять, соответствует ли текущее число условиям задачи. Если да, то нужно обновить значение наибольшего числа.

Вот пример программы на Паскале для решения этой задачи:

pascalCopy code
program MaxSquareLessThan225;

var
  inputNumber, maxNumber, square: Integer;

begin
  maxNumber := 0;

  repeat
    write('Введите натуральное число (или 0 для завершения): ');
    readln(inputNumber);

    if inputNumber <> 0 then
    begin
      square := inputNumber * inputNumber;
      if (square <= 225) and (square > maxNumber) then
        maxNumber := square;
    end;
  until inputNumber = 0;

  writeln('Наибольшее число в последовательности, квадрат которого не превышает 225: ', maxNumber);
end.

Программа будет считывать числа, пока не будет введен 0, и находить наибольшее из чисел, квадрат которых не превышает 225. После ввода числа 0 программа выведет найденное значение.