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

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

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

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

  1. zornitsa_mirela каза:

    program polojitelniChisla;
    var
    a,b,c: integer;

    begin
    WriteLn(‘Vavedete a:’);
    ReadLn (a);
    WriteLn(‘Vavedete b:’);
    ReadLn (b);
    WriteLn(‘Vavedete c:’);
    ReadLn (c);
    if a>0 then
    WriteLn(a)
    else
    WriteLn(b);
    if b>0 then
    WriteLn (b)
    else
    WriteLn (c);
    ReadLn;

    end.

  2. svetlieti каза:
    program project1;
    var
      a,b:real;
    begin
      Writeln('Vavedi dve chisla');
      Readln(a,b);
      if (a>0) and (b>0) then
         begin
         Writeln('Dvete chisla sa polojitelni');
         Readln;
         end;
         if (a>0) and (b<0) then
            begin
            Writeln('Samo ',a:5:2,' e polojitelno ');
            Readln;
            end;
                if (a<0) and (b>0) then
                   begin
                   Writeln('Samo ',b:5:2,' e polojitelno ');
                   Readln;
                   end
      else
          if (a<0) and (b<0) then
             begin
             Writeln('Nikoe ot tqh ne e polojitelno');
             Readln;
             end;
    
    end.
    
  3. Боряна каза:
    program pologitelni_chisla;
    var
      a,b: Real;
    begin
      WriteLn('Vavedi realno chislo:');
      ReadLn(a);
      WriteLn('Vavedi drugo realno chislo:');
      ReadLn(b);
    
      if ((a>0) and (b>0)) then
         WriteLn('I dvete chisla sa pologitelni.')
      else
        if a>0 then
           WriteLn('Samo ', a, ' e pologitelno')
        else
          if b>0 then
             WriteLn('Samo ', b, ' e pologitelno')
          else
            if not(a>0) and not(b>0) then
               WriteLn('Nikoe ot chislata ne e pologitelno');
      ReadLn;
    end.
    

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