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

1

Ответы и объяснения

2012-12-20T18:26:01+04:00

Program Program1;
Var
a,b,c:integer;
begin
write('Введите значение A: ');
readln(a);
write('Введите значение B: ');
readln(b);
write('Введите значение C: ');
readln(c);
if (a=b) or (b=c) or (c=a) then
writeln('Есть равные числа')
else
writeln('Нет равных чисел');
end.