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

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

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

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

  1. alis.marina каза:
    
    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. Евгения Георгиева каза:

    Г-не, така дали ще се получи, понеже не мога да го изпробвам на Lazarus вкъщи?
    program project1;
    Var
    a,b:real;
    begin
    Write ( ‘Vavedete chislata a i b’);
    ReadLn (a,b);
    if a>0 then
    if b>0 then
    WriteLn (‘I dvete chisla sa polojitelni’)
    else WriteLn (‘Edinstveno chisloto a e polojitelno’)
    else
    if a<0 then
    if b<0 then
    WriteLn (‘I dvete chisla sa otrcatelni’)
    else WriteLn (‘Edinstveno a e otricatelno’)
    end.

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