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

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

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

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

  1. Mladen96 каза:
    program Program1;
    
    var
    a,b: real;
    
    begin
    WriteLn ('Vavedete chislata a;b:');
    ReadLn (a,b);
    If a>0 then
      if b>0 then
        WriteLn (' I dvete sa polojitelni')
      else WriteLn ('Samo A e polojitelno')
    else
      If B>0 then
        WriteLn ('Samo B e polojitelno')
      else WriteLn (' I dvete sa otricatelni');
    
    ReadLn;
    end. 
     
  2. teriinkaa17 каза:
    
    program Project1;
    var a, b:integer;
    
    begin
    WriteLn('Vavedete koeficientite na a i b:') ;
    ReadLn(A,B) ;
    
    if A>0 then
      if B>0 then
      WriteLn('I dvete sa polojitelni')
      else WriteLn('Samo A e polojitelno')
    else if B>0 then
        WriteLn(' Samo B e polojitelno')
    else WriteLn(' I dvete sa otricatelni') ;
      ReadLn ;
    end.  
    
    

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