Câu hỏi:
Giúp em bài tập về nhà Tổng hợp lớp 8 câu hỏi như sau: Viết chương trình nhập vào ngày tháng năm. In ra màn hình ngày sau ngày vừa nhập.
Trả lời 2:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
Program xinlike;
uses crt;
Var x,y,z,T:integer;
begin
clrscr;
Writeln(‘nhap ngay thang nam sinh);
Readln(x,y,z);
T:=x+1;
writeln(‘ngay hom sau la’,T,’/’,y,’/’,z);
readln;
end.
Trả lời 1:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
program inngay
uses crt;
var ngay, d, m, y: integer;
BEGIN
clrscr;
Write(‘Nhap ngay: ‘); Readln(d);
Write(‘Nhap thang: ‘); Readln(m);
Write(‘Nhap nam: ‘); Readln(y);
CASE m of
1,3 4, 5, 6, 10,12: ngay:=31;
4,6,9,11: ngay:= 30
2: ((y mod 100=0) and (y mod 400=0)) or (y mod 4=0) then ngay:=29 else ngay:=28;
end;
if (d + 1 > ngay) and (m <> 12)then m:=m+1 else begin
y:=y+1;
m:=1;
d:=1;
end;
Writeln(‘Ngay sau ngay vua nhap la: ‘,d,’/’,m,’/’,y);
readln;
END.
