Question

Clasa 8.
Va rog....
De la statatura se introduce un numar natural n, ce reprezinta numarul de ordine al lunii anului..Scrieti un program Pascal ce va afisa numarul zilelor lunii respective.

Answer 1

var n:integer;

begin
read(n);
writeln;
if n=1 then writeln(31);
if n=2 then writeln(28);
if n=3 then writeln(30);
if n=4 then writeln(30);
if n=5 then writeln(31);
if n=6 then writeln(30);
if n=7 then writeln(31);
if n=8 then writeln(31);
if n=9 then writeln(30);
if n=10 then writeln(31);
if n=11 then writeln(30);
if n=12 then writeln(31);
end.

Answer 2

program Zile_luna;
begin
var n,zile:integer;
writeln('Introduceti nr luna(1-12):');
readln(n);
case n of
1,3,5,7,8,10,12: zile:=31;
4,6,9,11:zile:=30;
2:zile:=28;
else zile:=0;
end;
if zile=0 then
writeln('Eroare introducere luna!');

writeln('Zile:',zile);
end.