FPS Uždavinys

]Šviesoforas veikia pagal tokį algoritmą: kiekvienos valandos pirmąsias tris minutes dega žalia šviesa, po to dvi minutes - raudona, po to vėl tris minutes žalia ir t.t. Žinoma, kiek minučių t (t - sveikas skaičius) praėjo nuo valandos pradžios. Parašykite programą, kuri nustatytų, kokia šviesa dega.

Pasitikrinkite. Kai t=12, turi būti spausdinama: Dega žalia šviesa. Kai t=13, turi būti spausdinama: Dega raudona šviesa, tuoj užsidegs žalia.

Galėtumėte man padėti, toks suktas uždavinys.

Program Sviesoforas;

Var t : integer;

begin
   Write('Įveskite minutes: ');
   ReadLn(t);
   if t = 12 then
   begin
       WriteLn('Dega žalia šviesa.');
   end

   else if t = 13 then
   begin
       WriteLn('Dega raudona šviesa, tuoj užsidegs žalia.');
   end
end. 

program Sviesoforas;

 var t : integer; // Laikas minutėmis, praėjęs nuo valandos pradžios

begin

 Write ('Įveskite laiką, praėjusį nuo valandos pradžios: '); ReadLn (t);

 if t mod 5 = 0

    then WriteLn ('Dega raudona šviesa, tuoj užsidegs žalia.')

    else if t mod 5 = 3

            then WriteLn ('Dega žalia šviesa, tuoj užsidegs raudona.')

            else if t mod 5 < 3

                      then WriteLn ('Dega žalia šviesa.')

                      else WriteLn ('Dega raudona šviesa.');

 ReadLn;

end.

arba

program Bevarde13;
   var t : integer;
begin
 WriteLn('Iveskita laika minutemis: ');    ReadLn(t);
 t := t mod 10;
 if (1 <= t) and (t <= 3) or (6 <= t) and (t <= 8)
   then if (t = 3) or (t = 8)
           then WriteLn('Dega zalia, tuoj uzsidegs raudona')
           else WriteLn('Dega zalia')
   else if (t = 5) or (t = 0)
           then WriteLn('Dega raudona, tuoj uzsidegs zalia')
           else WriteLn('Dega raudona');

 Readln;
end.

Labai dėkui!

Program Sviesoforas;

Var t : integer;

begin
   Write('Įveskite minutes: ');
   ReadLn(t);
   if t = 12 then
   begin
       WriteLn('Dega žalia šviesa.');
   end

   else if t = 13 then
   begin
       WriteLn('Dega raudona šviesa, tuoj užsidegs žalia.');
   end
end. 

Good one! :-)

eina na, kaip tik šitą šiandien reikėjo daryti pažymiui... ir tik dabar čia radau :D