Mọi người giúp mik với. Mik hứa vote cho 5 sao ạ
Đề bài: Viết phương trình pascal nhập vào tháng và năm Hãy cho biết tháng đó có bao nhiêu ngày
Lưu ý: Viết theo dạng case..of kết hợp với else.
Mọi người giúp mik với. Mik hứa vote cho 5 sao ạ
Đề bài: Viết phương trình pascal nhập vào tháng và năm Hãy cho biết tháng đó có bao nhiêu ngày
Lưu ý: Viết theo dạng case..of kết hợp với else.
program oken;
uses crt;
var nam,thang: integer;
begin
clrscr;
write(‘Nhap nam: ‘); readln(nam);
repeat
write(‘Nhap thang: ‘); readln(thang);
until (thang>0) and (thang<13);
case thang of
1,3,5,7,8,10,12: writeln(‘Thang ‘,thang,’ co 31 ngay.’);
4,6,9,11: writeln(‘Thang ‘,thang,’ co 30 ngay’);
else
if (nam mod 4=0) or (nam mod 400=0) then
writeln(‘Thang 2 co 29 ngay’)
else
writeln(‘Thang 2 co 28 ngay’);
end;
readln;
end.
uses crt;
var a,b:integer;
bo:boolean;
begin write(‘2020 :’);
readln(b);
if (b mod 100=0) then bo:=(b mod 400)=0 else bo:=(b mod 4 )=0;
if bo then begin repeat clrscr;
write(‘Nhap thang :’);
readln(a);
until (a>0) and (a<13);
case a of 2:write(‘Co 29 ngay’);
1,3,5,7,8,10,12:write(‘Co 31 ngay’);
4,6,9,11:write(‘Co 30 ngay’);
end;
end;
if (not bo) then begin repeat clrscr;
write(‘Nhap thang :’);
readln(a);
until (a>0) and (a<13);
case a of 2:write(‘Co 28 ngay’);
1,3,5,7,8,10,12:write(‘Co 31 ngay’);
4,6,9,11:write(‘Co 30 ngay’);
end
end;
readln;
end.
đây nha bạn là năm nhuận năm 2020
tháng 2 có 29 ngày
1 3 5 7 8 10 12 có 31 ngày
4 6 9 11 có 30 ngày