составить программку определяющую однообразный ли символ у 2-ух данных чисел. Ответ

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadReal2('Введите через пробел два числа');
if Sign(a)=Sign(b) then Writeln('DA') else Writeln('NET')
end.

Пример
Введите через пробел два числа -345.43 12
NET

Darja Solovenja · Answer 2 · 2019-08-02 08:53:07+3:00

Darja Solovenja 2019-08-02 08:53:07

Var
a,b:integer;
begin
Writeln('Введите числа');
Readln(a,b);
If a*bgt;=0 then Writeln('DA') else Writeln('Net');
end.

Егор Саин 2019-08-02 08:54:26

Хрпошо, сообразил

Вадим Ризоев 2019-08-02 09:01:20

Тогда там будет не >= , а прост>

Ярослава Шарафуддинова 2019-08-02 09:02:44

А, точно)

Василиса Витошкина 2019-08-02 09:12:00

Хах, ну есть такое

О проекте

составить программку определяющую однообразный ли символ у 2-ух данных чисел. Ответ

Добро пожаловать!