Проверка за валидна оценка

Публикувано на 04 февруари, сряда от Данаил

Да се въведе число и да се провери дали е валидна оценка. Ако не е, да се изведе подходящо съобщение. Ако оценката е валидна, според стойността и да се изведе интересно съобщение – например „Браво, направо ги разби!“ или „Яко си загазил!“ :-)

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

14 Responses to Проверка за валидна оценка

  1. marina.xb каза:
    04 февруари, сряда в 18:15 
    program project1;
var
   ocenka: integer;

    begin
  Write('Vavedete ocenka:');
    ReadLn (ocenka);
    if (ocenka>=2) and (ocenka<=6)
    then
      WriteLn ('Tova e validna ocenka')
      else WriteLn ('Ne e validna ocenka');
    ReadLn;

    end.
  2. Евгения Георгиева каза:
    11 февруари, сряда в 16:30

    program project1;
    var
    chislo:integer;
    begin
    Write ( ‘Vavedete chislo i proverete dali e validna ocenka’);
    Readln (chislo);
    if ((chislo>=2) and (chislo<=6))then
    Write ( ' Ocenkata e validna')
    else Write ( 'Ocenkata ne e valedna ');
    Readln;

    end.

  3. Veselina каза:
    11 февруари, сряда в 16:34 
    program Project1;
var
chislo:integer;
begin
  WriteLn('Vavedete chislo:');
  ReadLn(chislo);
  if((chislo>=2)and(chislo<=6)) then
     WriteLn('Ocenkata e validna.')
  else WriteLn('Ocenkata ne e validna.');
  ReadLn;
end.
  4. xBlago каза:
    11 февруари, сряда в 16:36

    program Project1;
    var
    chislo:integer;
    begin
    WriteLn(‘Vavedi chislo i proveri dali e validno’);
    ReadLn(chislo);
    if (chislo>=2) and (chislo<=6) then
    WriteLn('Ocenkata e validna')
    else
    WriteLn('Ocenkata ne e validna');
    ReadLn;
    end.

  5. Габи каза:
    11 февруари, сряда в 16:38 
    program Project1;
var
  chislo : real ;
  begin
  Write ( 'Kakva e ocenkata ' );
  ReadLn(chislo) ;
  if (chislo >= 2) and (chislo <= 6) then
  WriteLn ( 'Validna ocenka  ' )
  else
  WriteLn (' Chisloto ne e validna ocenka ');
  ReadLn;
  end.
  6. гери3 каза:
    11 февруари, сряда в 16:38 
    program Project1;
var
chislo : real;
begin
Write ('Kakva e ocenkata ? ');
ReadLn (chislo);
if (chislo >=2) and (chislo <=6) then
WriteLn( 'Validna ocenka')
else
WriteLn ( ' Chisloto ne e validna ocenka ' );
ReadLn;
end.

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