Question

Дано 6 цифр. Вывести есть ли среди них повторяющиеся.

Написать программу Pascal ABC

Answer 1

var s: set of integer;
    i,a,k: integer;
begin
  s:=[]; k:=0;
  write('введите 6 чисел через пробел  ');
  for i:=1 to 6 do
  begin
    read(a);
    if a in s then inc(k);    
    s:=s+[a];
  end;
  if k>0 then writeln('есть повторяющиеся')
  else writeln('нет повторяющихся');
end.

введите 6 чисел через пробел  10 12 15 19 17 15
есть повторяющиеся

введите 6 чисел через пробел  17 19 21 13 14 15
нет повторяющихся