Составить программу определяющую одинаковый ли знак у двух заданных чисел. Ответ должен быть в виде: DA / NET

Question

Феокл

11 июня, 09:44

+1

Ответы (1)

Знаете ответ на вопрос?

Абдульвахид · Answer 1

Var

a, b:integer;

begin

Writeln ('Введите числа') ;

Readln (a, b) ;

If a*b>=0 then Writeln ('DA') else Writeln ('Net') ;

end.