Question

viết phương trình nhập một số nguyên :

kiểm tra số đó là số nguyên dương hay nguyên âm?kiểm tra số đó chia hết cho 3 hay không? kiểm tra sô đó lớn hơn hay nhỏ hơn 7? sơ đồ khối của 1 dạng câu lệnh điều kiện? cho VD?

Answer 1

program bai1;

var a:longint;

b:boolean;

begin

write('Nhap so: ');readln(a);

b:=false;

writeln(a,':');

if a<0 then writeln(' -La so nguyen am ')

else write('La so nguyen duong');

if a mod 3=0 then writeln('Chia het cho 3')

else writeln('Khong chia het cho 3');

if a>7 then writeln('Lon hon 7')

else write('Nho hon 7');

readln

end.