Giúp mình với ạ mình cần gấp Câu 1: viết chương trình con kiểm tra số nguyên a có là số chẵn hay không. Áp dụng chương trình con đó hiển thị lên màn hìn các số chẵn trong đoạn từ m->n Câu 2: viết chương trình con nhạp vào 3 số nguyên dương a,b,c; chương trình con tính chu vi; chương trình con tính diện tích; chương trình con tính độ cao; chương trình con tính đường trung tuyến; chương trình con tính đường phân giác
2 câu trả lời
Câu 1:
Uses crt;
Var m,n,i,a: longint;Begin
If a mod 2 = 0 then exit(true);
exit(false);
End;
Begin
Clrscr;
Read(m,n);
For i:=m to n do
If mod2(i) then Write(i,’ ‘);
Readln
End.
Câu 2 mik không biết làm, bạn thông cảm
Program DN;
Uses crt;
Var m,n,i: longint;
Function mod2(a: longint): boolean;
Begin
If a mod 2 = 0 then exit(true);
exit(false);
End;
Begin
Clrscr;
Read(m,n);
For i:=m to n do
If mod2(i) then Write(i,' ');
Readln
End.
