Составить программу pascal: заданы числа a и b. определить, - вопрос №5674458 от StasyaGolden 12.04.2023 12:21

Question

Информатика: Составить программу pascal: заданы числа a и b. определить, эти числа одного или разных знаков

StasyaGolden · Answer

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.