Ще взема ли изпита

Напишете програма, която позволява да въведете оценката ви от даден изпит и отпечатва дали сте си взели изпита (взет изпит е при оценка е > 2). По желание може да се добави интересен текст, който да се извежда при всяка от другите оценки.

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

4 коментара по Ще взема ли изпита

  1. Maggie i Cveti каза:
     program Project1;
    
     var
     ocenka: integer;
    
     begin
     Write ( 'Vavedete ocenka:' ) ;
     ReadLn ( ocenka );
     if ocenka>2 then
        WriteLn ('Vzet e')
     else WriteLn ('Ne e vzet') ;
     ReadLn ;
    
    
    
     end.          
  2. Mimi.Mishi каза:
     program project1;
    
    var
       ocenka: Integer  ;
    
    begin
    
    WriteLn( 'vavedete ocenka ') ;
    ReadLn ( ocenka );
    if ocenka> 2 then
      WriteLn( 'Premina ' )
    else WriteLn ('Ne preminawash')  ;
     ReadLn ;
    end.     
     
  3. Dimitrov каза:
     program Ocenki_ot_izpit;
    var
    a: Byte;
    
    begin
    Write('Kakva e ocenkata? ');
    ReadLn(a);
    if a>2 then
    WriteLn('Minavash izpita')
    else
    WriteLn('Ne minavash izpita');
    ReadLn;
    end.
    
  4. Silviq Evgenieva каза:
     program Project1;
    var
        ocenka:integer
     begin
    
      WriteLn('Vavedete ocenka') '
     ReadLn ( ocenka );
      nbif ocenka 2 then
      WriteLn( ' Premina ' )
     else WriteLn ('Ne preminavash');
      ReadLn ;
     end.
                        

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