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

Написать программу на языке программирования паскаль 1)зная температуру воздуха ,определить вид осадков (дождь или снег) 2)найдите сумму цифр заданного трехзначного числа 3)если первое число больше второго ,то определить квадрат меньшего числа ,а в противном случае - произведение чисел

👇
Ответ:
sergijkorovonko
sergijkorovonko
29.09.2020
Var
   t:integer;
Begin
Write('Введите температуру воздуха: ');ReadLn(t);
if t > 0 then Write('Дождь')
else Write('Снег')
End.

Var
   A:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A:=Abs(A);
WriteLn(A div 100,'+',(A div 10) mod 10,'+',A mod 10,' = ',A div 100+(A div 10) mod 10+A mod 10);
End.

Var
   A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A>B then Write('Квадрат меньшего: ',B*B)
else Write('Произведение чисел: ',A*B)
End.
4,5(5 оценок)
Открыть все ответы
Ответ:
pampey2
pampey2
29.09.2020

ответ:

современное социально- и научно-технологическое развитие характеризуется процессами , интеграции государств, быстрым перемещением продукции, услуг, людей, капиталов и идей. происходит переход к шестому технологическому укладу. принимая во внимание, что технологический уклад представляет собой освоенные прорывные технологии, инновации, изобретения, определяющими факторами развития становятся научно-технический прогресс, когнитивная и креативная человеческая составляющая технологических процессов и интеллектуализация основных факторов производства. , основанная на знаниях, в которой знания обогащают все отрасли, все секторы и всех участников процессов. главный эффект , основанной на знаниях, заключается не столько в выпуске высокотехнологичной продукции, сколько в ее использовании во всех отраслях и сферах. главное в , основанной на знаниях, не столько создать новое знание, сколько продуктивно его использовать. стратегия инновационного развития страны опирается на реализацию человеческого потенциала, на более эффективное применение знаний и умений людей для постоянного улучшения технологий, результатов и жизни общества в целом. переход на инновационный путь развития связан прежде всего с инвестициями в человеческий капитал. объектами инновационного менеджмента являются инновации продукта, процесса и стратегии. развиваются приоритетные сегменты в поисках дополнительных источников повышения прибыльности компании: от финансами, отношениями с клиентами до качеством и знаниями. все чаще конкурентные преимущества компаний заключаются в творческом потенциале сотрудников. в статье рассмотрены актуальные аспекты развития , основанной на знаниях, организационно- инновации, связь генерации инноваций с эффективным знаниями организации, а также вопросы формирования инноваторов лидеров перемен в инновационной .

киберленинка:

4,6(9 оценок)
Ответ:
kitecat12
kitecat12
29.09.2020

quantity = 0

n = int(input())

array = []

counter = 0

while counter != n:

 number = int(input())

 array.append(number)

 counter += 1

for i in range(len(array)):

   for j in range(i + 1, len(array)):

     if ((array[i] * array[j]) % 6 == 0):

       quantity += 1

print(quantity)

Объяснение:

quantity = 0  // Переменная, хранящая количество чисел, равна 0

n = int(input())  // Ввод с клавиатуры количества чисел

array = []  // Создание списка

counter = 0  // Переменная счетчик = 0

while counter != n:  // Пока переменная счетчик ≠ значению переменной n

 number = int(input())  // Ввод числа с клавиатуры

 array.append(number)  // Добавление этого числа в список

 counter += 1  // Переменная счетчик + 1

for i in range(len(array)):  // От 0-го индекса до размера списка

   for j in range(i + 1, len(array)):  // От i + 1 индекса до размера списка (берется значение после индекса i, чтобы сократить время)

     if ((array[i] * array[j]) % 6 == 0):  // Если индекс i списка * индекс j списка делится на 6 без остатка

       quantity += 1  // Количество + 1

print(quantity) // Вывод значения переменной quantity

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