Question

1) Viết chương trình pascal, ứng dụng câu lệnh điều kiện

Viết chương trình nhập vào một số nguyên a từ bàn phím. Xuất ra màn hình số a vừa nhập là số chia hết cho 5 hay số không chia hết cho 5

Answer 1

uses crt;

var a:integer;

begin

clrscr;

write('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.