var
a, b: integer;
begin
readln(a, b);
writeln(System.Math.Sign(a) = System.Math.Sign(b) ? ‘Да’ : ‘Нет’);
end.
Или ̶п̶р̶и̶м̶и̶т̶и̶в̶н̶е̶е̶ проще:
var
a, b: integer;
begin
readln(a, b);
if (a > 0) then a := 1;
if (a = 0) then a := 0;
if (a < 0) then a := -1;
if (b > 0) then b := 1;
if (b = 0) then b := 0;
if (b < 0) then b := -1;
if (a = b) then
writeln(‘Yes’)
else
writeln(‘No’);
end.
Немного ̶у̶п̶р̶о̶̶щ̶̶ё̶н̶н̶ы̶й̶ оптимизированный вариант:
var
a, b: integer;
begin
readln(a, b);
if (a > 0) then
a := 1
else
if (a = 0) then
a := 0
else
a := -1;
if (b > 0) then
b := 1
else
if (b = 0) then
b := 0
else
b := -1;
if (a = b) then
writeln(‘Yes’)
else
writeln(‘No’);
end.
Источник: znanijam.net
PASCAL. Урок 2. Вывод (read/readln). типы данных(integer, real), переменные. ПАСКАЛЬ
Составить программу, устанавливающую одного ли знака два числа, вводимые клавиатуры
var
a, b: integer;
begin
readln(a, b);
writeln(System.Math.Sign(a) = System.Math.Sign(b) ? ‘Да’ : ‘Нет’);
end.
Или ̶п̶р̶и̶м̶и̶т̶и̶в̶н̶е̶е̶ проще:
var
a, b: integer;
begin
readln(a, b);
if (a > 0) then a := 1;
if (a = 0) then a := 0;
if (a < 0) then a := -1;
if (b > 0) then b := 1;
if (b = 0) then b := 0;
if (b < 0) then b := -1;
if (a = b) then
writeln(‘Yes’)
else
writeln(‘No’);
end.
Немного ̶у̶п̶р̶о̶̶щ̶̶ё̶н̶н̶ы̶й̶ оптимизированный вариант:
var
a, b: integer;
begin
readln(a, b);
if (a > 0) then
a := 1
else
if (a = 0) then
a := 0
else
a := -1;
if (b > 0) then
b := 1
else
if (b = 0) then
b := 0
else
b := -1;
if (a = b) then
writeln(‘Yes’)
else
writeln(‘No’);
end.
Галина Свежинцева Отвечено 24 сентября 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru