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.
Графический интерфейс компьютера будущего интегрирован в повседневную жизнь человека посредством дополненной реальности. Взаимодействие осуществляется при голосового интерфейса или жестами. Процессор имеет прямой канал связи с мозгом, в котором данные от процессора фильтруются и при отсутствии вреда пользователю, уже передаются в мозг человека.С целью снижения психической нагрузки используется звуки природы. При сильном угнетении нервной системы в результате длительной работы, человеку предлагается поспать, если вред нервной системе неизбежен, используется введение пси-геля и активируется массажная функция одежды. Система в данном случае полностью локализованна, для избежания нанесения вреда другими людьми.
Объяснение:
program Xxx;
const
RndLimit = 10000;
var
x : integer;
begin
Repeat x := Random(RndLimit) until x > 999;
writeLn('Random X= ', x);
WriteLn('Modifyed X=', (x mod 1000 mod 100 mod 10), (x mod 1000 mod 100 div 10) , (x mod 1000 div 100) , (x div 1000) );
end.
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
10 lines compiled, 0.3 sec
Random X= 5488
Modifyed X=8845
...Program finished with exit code 0
Press ENTER to exit console