CwetochekAnfisa
14.06.2020 04:54

Уартёма скоро день рождения, и он решил отпраздновать это событие, купив своим друзьям по коробке конфет. коробка состоит из m конфет, каждая из которых имеет вид — целые числа a1, a2, a3, am.

создайте класс candybox, который содержит внутри себя динамический массив.
class candybox {
int cnt; // количество конфет
int* candies; // динамический массив конфет
public:
candybox(); // конструктор, который создает пустую коробку
~candybox();
void read(); // операция чтения набора конфет с клавиатуры
void print(); // операция вывода набора конфет на экран
int varieties(); // количество различных видов конфет в коробке
};
с использованием полученного класса подсчитайте количество различных видов конфет в коробке и выведите его на экран.

формат входных данных
в первой строке вводится целое положительное число m (m ≤ 1) — количество конфет.

в следующей строке вводятся m неотрицательных чисел, не превышающих 109 — виды конфет.

формат выходных данных
требуется вывести одно целое число — количество различных видов конфет.
входные данные выходные данные
7
8 4 6 4 8 8 1
4

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
рустам222
13.12.2022 08:55
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840
0,0(0 оценок)
Ответ:
dis8
17.11.2022 01:57
//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота