Опубликовано 5 лет назад по предмету Информатика от альстофер

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

Ответ

Ответ дан Crazzyone

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.
1. Ответ
  
  Ответ дан альстофер
  
  спасибо! слушай, а без repeat и until, ну как то можно без них составить программу
2. Ответ
  
  Ответ дан Crazzyone
  
  По теории программирования можно на одних ифах, но это длинная последовательность из одинаковых кусков, превосходящая терпение пользователя по вводу чисел. У тебя не известно количество, а значит это уже или переход (label) или цикл. Так как количество проходов не известно есть только 2 варианта repeat until и do while. Других вариантов нет. С переходами писал прошлый раз.

Самые новые вопросы

Математика - 4 года назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 4 года назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 4 года назад

Почему япония - лидер по выплавке стали?

Математика - 4 года назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 4 года назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.