Има ли отрицателни числа?

Да се напише програма, която позволява въвеждане на числа до въвеждане на 0 и накрая отпечатва имало ли е сред въведените отрицателни.

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

Един коментар по Има ли отрицателни числа?

  1. alis.marina каза:
    var chislo: integer;
      imaotricatelni:boolean;
    
    begin
    
    WriteLn ('vavedete chislo:');
    imaotricatelni:=False;
    repeat
      ReadLn(chislo);
      if chislo<0 then
        imaotricatelni:=TRUE;
    until chislo=0;
    if imaotricatelni then WriteLn('True!')
       else WriteLn('False:-(');
    ReadLn;
    end.   
     

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