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

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

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

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

  1. Lubomir Dizela каза:

    Ne oburnah vnimanie na zadachata i q napravih po razlichen nachi.
    Shte publikuvam i nego zashtoto mislq che tova moje da obogati znaniqta ni.

     program Chisla;
       var
       c1, c2, c3: integer;
    
    
    begin
     WriteLn ('Vuvedete tri chisla: ');
     ReadLn (c1, c2, c3);
     if c1<0 then WriteLn(c1, ' e otricatelno chislo') else WriteLn(c1, ' e polojitelno chislo');
     if c2<0 then WriteLn(c2, ' e otricatelno chislo') else WriteLn(c2, ' e polojitelno chislo');
     if c3<0 then WriteLn(c3, ' e otricatelno chislo') else WriteLn(c3, ' e polojitelno chislo');
     ReadLn;
    
    end.      
  2. Violeta каза:
     program Project1;
    var
    a, b: integer;
    begin
    Write('vavedete dve chisla');
    ReadLn(a, b) ;
    if (a>0) and (b>0) then
    WriteLn('plojitelnite sa dve');
    if(a>0) and(b<0) then
    WriteLn( 'edno polojitelno chislo  a ' );
    if (a<0) and (b>0)then
    WriteLn('edno polojitelno chislo b  ' );
    if (a<0) and (b<0) then
    WriteLn ('Nqma polojitelni chisla ');
    ReadLn;
    end.
                
  3. Данаил каза:

    Виолета – вярно е, само че може да сложиш по един else пред if-овете след първия, за да не се испълняват следващите проверки, ако се е изпълнила първата, защото всички тези варианти са взаимноизключващи се.

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