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

Question

Элохим

29 сентября, 11:26

+2

Ответы (1)

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

Жин · Answer 1

Var

a, b:integer;

begin

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

Readln (a, b) ;

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

end.