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

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

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

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

4 Responses to Ще взема ли изпита

  1. Maggie i Cveti каза:
    07 февруари, петък в 12:31 
     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 каза:
    07 февруари, петък в 12:31 
     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 каза:
    07 февруари, петък в 12:33 
     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 каза:
    10 февруари, понеделник в 11:35 
     program Project1;
var
    ocenka:integer
 begin

  WriteLn('Vavedete ocenka') '
 ReadLn ( ocenka );
  nbif ocenka 2 then
  WriteLn( ' Premina ' )
 else WriteLn ('Ne preminavash');
  ReadLn ;
 end.

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