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


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

  1. Ответ
    Ответ дан Crazzyone

    program zadanie;varmax,num,a :byte;label metka;beginmax:=0;writeln('vvodite chisla');metka:readln(a);if a=0 thenwriteln ('max=',max)else    if a*a>225 then       begin            writeln('Slishkom bolshoe chislo');            goto metka;       end    else        begin             if max<a then max:=a;             goto metka;        end;readln;end.

    1. Ответ
      Ответ дан альстофер
      и label metka?
    2. Ответ
      Ответ дан Аккаунт удален
      ))))) goto, значит, проходили? или проходили и мимо прошли?
    3. Ответ
      Ответ дан альстофер
      да, нет я имел ввиду что значит label
    4. Ответ
      Ответ дан Crazzyone
      label [имя метки] это метка, т.е. место в программе, куда можно вернуться в любой момент перейдя по ссылке goto [имя метки] не просто так спрашивал проходили ли метки
    5. Ответ
      Ответ дан Crazzyone
      странно, что не смутило metka:
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц