Var a,b,c,d: Integer; begin writeln('Введите a,b,c,d'); readln(a,b,c,d); if (a=b) or (a=c) or (a=d) or (b=a) or (b=c) or (b=d) or (c=a) or (c=b) or (c=d) or (d=a) or (d=b) or (d=c) then writeln('Среди чисел есть равные числа') else writeln('Среди чисел нет равных чисел'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
