CHO SỐ NGUYÊN ASỬ DỤNG CẤU TRÚC RẼ NHÁNH NẾU ... THÌ.. ĐỂ DIỄN ĐẠT A LÀ SỐ CHIA HẾT CHO 5 HAY KHÔNG CHO SỐ NGUYÊN A, VIẾT CÂU LỆNH IF - THEN ĐỂ THÔNG BÁO A CÓ PHẢI LÀ SỐ CHIA HẾT CHO 5 HAY SỐ LẺ
2 câu trả lời
program Bai;
Uses crt;
var a: integer;
begin
write('Nhap a='); readln(a);
if a mod 5=0 then writeln(a, ' chia het cho 5')
else writeln(a, ' khong chia het cho 5');
readln
end.
..........................................
program So_Le;
uses crt;
var a: integer;
begin
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a, 'La so chan')
else writeln(a, 'La so le');
readln
end.
Câu 1:
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Nhap a = '); readln(a);
If a mod 5 = 0 then writeln(a,' chia het cho 5');
Readln
End.
Câu 2:
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Nhap a = '); readln(a);
If a mod 5 = 0 then writeln(a,' chia het cho 5');
If a mod 2 = 1 then writeln(a,' la so le);
Readln
End.
