KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Câu 2 : Hãy viết chương trình con kiểm tra tính chẵn lẻ của 1 số nguyên k? *
By Reagan
Câu 2 : Hãy viết chương trình con kiểm tra tính chẵn lẻ của 1 số nguyên k? *
uses crt; var k:integer; {—Chuong-trinh-con—} procedure chan; begin write(k,’ la so chan’); end; procedure le; begin write(k,’ la so le’); end; {—Chuong-trinh-chinh—} BEGIN clrscr; write(‘Nhap so nguyen k: ‘); readln(k); if k mod 2=0 then chan else le; readln; END.
Program So_chan_le; Uses Crt; Var so,du:Integer; Begin Clrscr; Writeln(‘SO CHAN HAY SO LE’); Writeln(‘—————–‘); Write(‘-Nhap mot so nguyen bat ky: ‘); Readln(so); du:=so Mod 2; Case du Of 0:Begin Writeln(‘-So : ‘,so); Writeln(‘-La so chan’); End; 1:Begin Writeln(‘-So : ‘,so); Writeln(‘-La so le’); End; End; Writeln; Writeln(‘ Bam phim <Enter> de ket thuc’); Readln; End.
uses crt;
var k:integer;
{—Chuong-trinh-con—}
procedure chan;
begin
write(k,’ la so chan’);
end;
procedure le;
begin
write(k,’ la so le’);
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap so nguyen k: ‘); readln(k);
if k mod 2=0 then chan
else le;
readln;
END.
Program So_chan_le;
Uses Crt;
Var
so,du:Integer;
Begin
Clrscr;
Writeln(‘SO CHAN HAY SO LE’);
Writeln(‘—————–‘);
Write(‘-Nhap mot so nguyen bat ky: ‘);
Readln(so);
du:=so Mod 2;
Case du Of
0:Begin
Writeln(‘-So : ‘,so);
Writeln(‘-La so chan’);
End;
1:Begin
Writeln(‘-So : ‘,so);
Writeln(‘-La so le’);
End;
End;
Writeln;
Writeln(‘ Bam phim <Enter> de ket thuc’);
Readln;
End.
$Nocopy$
$An$
Cho mik xin ctrlhn nhoa!!!