Quảng cáo
1 câu trả lời 171
Program chiahet;
Uses crt;
Var a:integer;
Begin
Clrscr;
Writeln('Nhap so a: ');Readln(a);
If a mod 5=0 then writeln(a,' la so chia het cho 5')else writeln (a,' la so khong chia het cho 5');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45285 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34717 -
Đã trả lời bởi chuyên gia
30502 -
Hỏi từ APP VIETJACK27893
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22260
Gửi báo cáo thành công!
