М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ахпхпха
ахпхпха
18.08.2020 08:51 •  Информатика

ЗА В ПАСКАЛЕ Выполнить программу в PascalABC для чисел из обоих диапазонов

ОБОЗНАЧЕНИЯ: БЦН(х) – ближайшее целое, не превосходящее х по модулю – trunc(x);

{x} - дробная часть числа - frac(x);

[x] - целая часть числа - int(x).

Дано трехзначное число N. Если оно оканчивается на 6, вывести сообщение об этом и, вычислить выражение n^1/2-3,58n/П+П , иначе вычислить 32,25/(n^2+3)(n+0,5) и вывести сообщение об этом.

👇
Открыть все ответы
Ответ:
ЯLOVEспорт
ЯLOVEспорт
18.08.2020

while True:

   n = int(input('Введите кол-во чисел: '))

   if n <= 1000:

       break

   else:

       print('Ошибка: Кол-во чисел не должно превышать 1000')

number = None

for _ in range(n):

   while True:

       num = int(input('Введите число: '))

       if num <= 30000:

           break

       else:

           print('Ошибка: Число не должно превышать 30000')

   if num % 5 == 0:

       if number:

           if num > number:

               number = num

       else:

           number = num

print(number)

4,8(94 оценок)
Ответ:
Ref22pm
Ref22pm
18.08.2020

while True:

   n = int(input('Введите кол-во чисел: '))

   if n <= 1000:

       break

   else:

       print('Ошибка: Кол-во чисел не должно превышать 1000')

number = None

for _ in range(n):

   while True:

       num = int(input('Введите число: '))

       if num <= 30000:

           break

       else:

           print('Ошибка: Число не должно превышать 30000')

   if num % 5 == 0:

       if number:

           if num > number:

               number = num

       else:

           number = num

print(number)

4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ