viết chương trình pascal nhập số m từ bàn phím, kiểm tra xem K có chia hết cho 5 không?
2 câu trả lời
sửa đề: viết chương trình pascal nhập số K từ bàn phím, kiểm tra xem K có chia hết cho 5 không?
program chiahet;
uses crt;
var k:integer;
begin
clrscr;
write('nhap k: ');readln(k);
if k mod5=0 then
write(k,'chia het cho 5') else
write(k,'khong chia het cho 5');
readln;
end.
uses crt;
var k:Longint;
begin
clrscr;
readln(k);
if(k mod 5 = 0) then writeln('Co') else writeln('Khong');
readln;
end.
