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

Question

Феофила

25 апреля, 02:09

+5

Ответы (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.