Помогите, пожалуйста, составить программу в Паскаль

Question

Помогите, пожалуйста, составить программу в Паскаль. Определить, имеется ли среди чисел a, b, c хотя бы два числа равные.

Answer 1

64

andrusha123

17 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: