Задание:
Помогите, пожалуйста, составить программу в Паскаль. Определить, имеется ли среди чисел a, b, c хотя бы два числа равные.
Решение:
Program Program1; Vara,b,c: integer; beginwrite ('Введите значение A: '); readln (a); write ('Введите значение B: '); readln (b); write ('Введите значение C: '); readln (c); if (a=b) or (b=c) or (c=a) thenwriteln ('Есть равные числа') elsewriteln ('Нет равных чисел'); end.
Знаете другой ответ?