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

По информатике. 15 -5, если х< -5 х, если -5< =х< =0y= 2х, если 0< х< 3 6, если х> =0

Показать ответ
Ответ:
Nasya156
Nasya156
19.11.2022 16:22
Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.
0,0(0 оценок)
Ответ:
Lanalavina
Lanalavina
21.04.2022 12:23
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота