Question

Se cunoaste ora de incepere a lectiilor la scoala `n` ore `n` minute, durata fiecarei lectii este de 45 minute. Pauza 1 si 3 sunt de 15 minute ,iar celelalte 10 minute
de afisat ora finisarii fiecarei lectii . Sunt 6 lectii
Trebuie in Pascal

Answer 1

var

 n1,n2,i:integer;
 
begin

 read(n1,n2);
 
 for i:=1 to 6 do
  begin
   n2+=45; //Lectie
   if(n2>=60) then //Daca minuta e mai mare decit 60, atunci ora+
    begin
     n2-=60;
     n1+=1;
    end;
   if(n1>=24) then
    n1-=24;
   if(n1<10) and (n2<10) then //Cazuri pentru afisare frumoasa
    writeln(i,')0',n1,':0',n2)
   else
    if(n1<10) and (n2>=10) then
     writeln(i,')0',n1,':',n2)
    else
     if(n1>10) and (n2<10) then
      writeln(i,')',n1,':0',n2)
     else
      writeln(i,')',n1,':',n2);
   if(i=1) or (i=3) then //Pauze
    begin
     n2+=15; //1 sau a 3-a
     if(n2>=60) then
      begin
       n2-=60;
       n1+=1;
      end;
    end
   else //Altele
    begin
     n2+=10;
     if(n2>=60) then
      begin
       n2-=60;
       n1+=1;
      end;
    end;
  end;

end.