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

Вводится число N, а затем - N чисел. Определить, сколько среди них пар одинаковых чисел. (2<=N<=100).
что-то догнать не могу, как сделать, получается только с рядом стоящими парами
Пример

Вход Выход
5
1 3 2 2 3
2

👇
Ответ:
arsenteva99i
arsenteva99i
20.11.2022

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int n, counter = 0;

   vector <int> arr;

   cin >> n;

   for(int i = 0 ; i < n ; ++i)

   {

       int temp;

       cin >> temp;

       arr.push_back(temp);

   }

   

   for(int i = 0 ; i < arr.size() - 1 ; ++i)

       for(int j = i + 1 ; j < arr.size() ; ++j)

           if(arr[i] == arr[j])

               counter++;

   cout << counter;

   return 0;

}

4,6(49 оценок)
Открыть все ответы
Ответ:
Mashirachan
Mashirachan
20.11.2022

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60

4,6(13 оценок)
Ответ:
sasha7070
sasha7070
20.11.2022

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60

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