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

Дан массив из 7 элементов. найти произведение четных чисел и кол-во нечётных

👇
Ответ:
kornev183
kornev183
10.06.2021
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(7);
  Write('Произведение четных: ',
    a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
    ', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.

Пример
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
4,6(100 оценок)
Ответ:
Макс528103
Макс528103
10.06.2021
#include <iostream>

using namespace std;

int main() {
 int a[7];
 int k = 0, p = 1;
 for(int i = 0; i < 7; i++) {
   cin >> a[i];
   if(a[i] % 2 == 0) p*=a[i];
   else k++;
 }
 cout << "Произведение: " << p << endl << "Количество: " << k << endl;
}
4,4(82 оценок)
Открыть все ответы
Ответ:
КсюшаЛор
КсюшаЛор
10.06.2021

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#include

#include

using namespace std;

int main(int argc, char** argv) {

    int num, n, co;

    cout< < "number? "<

    cin> > num;

    cout< < "cifra? "<

    cin> > n;

    int count = 0;

    for (; num> 0; count++) {

        num /= 10;

    }

    for (int i = 0; i < count; i++) {

        if (num[i] == n) {

            co++;

        }

    }

    cout< < "number of "<

    return 0;

}

объяснение:

4,7(13 оценок)
Ответ:
dapmoney2p0c8c0
dapmoney2p0c8c0
10.06.2021

program vt;

 

type toy = record     // тип игрушка

      name : string;   // название

      price : integer;     // стоимость

      age : integer;         // возрастные границы

      a: boolean;

end;

 

var

    f : text; // переменая для работы с файлом

    i : integer; // счетчик

    size : integer;   // кол. игрушек

    maxage : integer; // макс. возрастная граница

    maxprice : integer;     // макс цена игрушки

    mas : array [1..100] of toy;   // контейнер игрушек

   

begin

      assign(f, 'input.txt');   // связываем переменную с файлом

      reset(f);               // открываем файл на чтение

      i : = 1;                 // 1 игрушка

      maxprice : = 400;         // макс цена = 400

      maxage: =5;                 //макс. возрастная граница = 5

      while (not eof(f)) do   // пока не дошли до конца файла

      begin

          readln(f, mas[i].name);     // считываем данные об игрушке

          readln(f, mas[i].price);

          readln(f, mas[i].age);

          maxage > mas[i].age;   //найти все до 5 лет

          writeln

         

      end;

end.

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