Program - Počet dní v mesiaci :)

Program napísaný v jazyku vývojových diagramov.

Program napísaný v jazyku Pascal

program Pocet_dni_v_mesiaci;

var
 mesiac,pocet:integer;

begin
 writeln ('Napiste cislo mesiaca a ja napisem, kolko ma dni.');
 readln (mesiac);
 pocet:=0;
 case mesiac of
 1,3,5,7,8,10,12 :pocet:=31;
 2 :pocet:=28;
 4,6,9,11 :pocet:=30;
 end;
 if pocet=0 then writeln ('Zly mesiac.')
 else writeln ('Mesiac ma ', pocet,' dni.');
 readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Operácie s maticami :)
• Program - Polynóm (mnohočlen) :) →