Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.
Аналогично
begin
for var a := 100 to 999 do begin
for var b := 100 to 999 do begin
if a * b = a + b then writeln(a,'-', b);
end;
end;
end.
Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))
Ирга шла с 3 по 14 декабря. Ну вдруг если она работает то напиши :: час кода.рф