В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
You666
You666
27.04.2022 14:14 •  Информатика

ПО ИНФОРМАТИКЕ В СКРЕТЧ 2.0 складіть математичну модель і блок схем алгоритму обчислення значення виразу (a+b)-c / (a-2*b) виконайте його при різних значеннях A, b і c підберіть числа так, щоб кожного разу виконання разу виконання алгоритму відбувалось по іншому.​

Показать ответ
Ответ:
140219801
140219801
16.11.2020 16:08

print("Вопрос №1")

print("В коробке было 8 яиц, 2 вы розбили а 2 сели \nВаш ответ?")

question1 = int(input("..."))

if question1 != 6:

   print("В коробке было 6 яйца")

   print("Вслушайтесь в задачу внимательно, \n2 вы розбили '2 приготовили, 2 сели'")

   print('')

else:

   print("ответ правильний!")

   print('')

print("Вопрос №2")

print("Меня покупают для еды, \nно никогда не едят. Кто я?\nВаш ответ?")

question2 = input("...")

if question2 != "Тарелка" or question2 != "тарелка":

   print("Правильний ответ Тарелка")

   print('')

else:

   print("ответ правильний!")

   print('')

print("Вопрос №3")

print("В каком городе есть: 1/3 от Чили, \n1/3 от Канады и 1/3 от Гондураса\nВаш ответ?")

question3 = input("...")

if question3 != "Чикаго" or question3 != "чикаго":

   print("Правильний ответ Чикаго")

   print("(Чили - Чи, Канада - ка, Гондураса - го)")

   print('')

else:

   print("ответ правильний!")

0,0(0 оценок)
Ответ:
Som777nik
Som777nik
01.04.2023 02:30
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота