Три отрицателни

Публикувано на 21 април, четвъртък от Данаил

Да се позволи въвеждане на числа докато не се въведат 3 отрицателни.

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

3 Responses to Три отрицателни

  1. Viktoria Velichkova каза:
    21 април, четвъртък в 13:51 
     
program Project1;
var
 x, br:integer;
begin
  WriteLn('Vavejdaite polojitelni i otricatelni chisla');
  br:=0;
  repeat
    ReadLn(x);
  if x<0 then
  br:= br+1
  until br=3;
  WriteLn('Veche vavedohte 3 otricatelni chisla');
  ReadLn;
end.
  2. Lubomira каза:
    21 април, четвъртък в 14:04 
    program 3 otricatelni;
var
chislo, Br : integer ;
begin
Br:=0 ;
repeat
WriteLn ('Vuvedete chislo:') ;
ReadLn(chislo) ;
If chislo<0 then
Br:= Br+1 ;
until Br=3 ;
WriteLn ('Vie vuvedohte 3 otricatelni chisla');
ReadLn ;
end.
  3. svetlieti каза:
    21 април, четвъртък в 14:06 
    program Project1;
var
  br, chislo:integer;
begin
  Writeln('Vavedi razlichni chisla');
  br:=0;

  repeat
    Readln(chislo);
    if chislo<0 then
     br:=br+1;
  until br=3 ;

  Writeln('Bravo!!! Vie vavedohte 3 otricatelni chisla');
  Readln;
end.

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