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

C++ 1. Масив містить довільні цілі числа. Вивести на екран всі числа лише
по одному разу.
2. Масив містить довільні цілі числа. Вивести на екран числа, які
розташовані між мінімальним та максимальним значеннями.
3. В масиві зберігається вартість різних предметів. З собою
дозволяється взяти лише 5 предметів. Визначити максимальну
вартість предметів, яку можна забрати з собою.

Желательно сортуванням масиву

Показать ответ
Ответ:
School30zh
School30zh
07.06.2022 00:02

C++

Объяснение:

#include <iostream>

using namespace std;

#include <string>

//На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём.Найти среднее арифметическое всех двузначных чисел которые делятся на 7. С++

int main()

{

int number;

int count = 0;

float summ = 0;

int otvet;

cin >> number;

while (number != 0) {

 cin >> number;

 if ((number >= 10 && number <= 99) && (number % 7 == 0)) {

  summ += number;

  count++;

 }

 if (number == 0) {

  otvet = summ / count;

  cout << "Otvet: " << otvet << endl;

  break;

 }

}

}

0,0(0 оценок)
Ответ:
Adilkin
Adilkin
31.01.2021 19:10
uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота