Колко са положителни?

Да се въведат две реални числа и да се изведе колко от тях са положителни – и двете, само едното или нито едно от тях.

Публикувано в с етикети . Постоянна връзка.

2 коментара по Колко са положителни?

  1. BestValve каза:
    program Project1;
    var
    a,b : integer ;
    begin
      Write('vavedete dvete chisla: ');
      ReadLn(a,b);
      if (a>0) or(b>0)then
       if (a>0) and (b>0) then
         WriteLn ('Ednakvi')
       else WriteLn('Samo ednoto')
         else WriteLn('Nito edno');
         ReadLn;
    end.

Вашият коментар