Паскаль ABC составьте программу которая проверяет равны ли 3 введённых числа и выводит на экран сообщения равны или не равны

Question

Генюля

8 сентября, 18:28

+3

Ответы (1)

Знаете ответ?

Мисаил · Answer 1

Program n1;

var a, b, c: integer;

begin

readln (a, b, c) ;

if (a=b) and (a=c) and (b=c) then write ('равны') else write ('не равны') ;

end.