Question

Помогите, пожалуйста! Очень вас прошу! Через паскаль! Не использовать: const, count, label metka. .Тема:" Сложность Алгоритмов" Написать программу, которая в последовательности натуральных чисел определяет наибольшее, квадрат, которого не превосходит число 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

Конечно, я помогу! Вот пример кода на Паскале, который решает вашу задачу:

perlCopy code
program MaxSquare;
var
  num, maxSquare: integer;
begin
  maxSquare := 0;
  repeat
    readln(num);
    if (num <> 0) and (sqr(num) <= 225) and (sqr(num) > maxSquare) then
      maxSquare := sqr(num);
  until num = 0;
  writeln(maxSquare);
end.

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

После окончания ввода чисел программа выводит максимальный квадрат функцией writeln.

Заметьте, что в этом коде не используются ключевые слова const и label, а переменная count не требуется, так как программа не заранее не знает количество вводимых чисел.