Question

[Nguyễn Thanh Ngọc Duyên]

lập trình pascal

1/ Nhập bốn số nguyên dương lớn nhất, nhỏ nhất

2/ Nhập một số nguyên dương kiểm tra số đó chẳng lẻ

3/ Tìm tất cả các ước của 1 số nguyên dương nhập từ bàn phím

4/ Kiểm tra số nguyên dương là hợp số hay là số nguyên tố

5/ Tìm ước chung lớn nhất, bội chung nhỏ nhất của hai số nguyên dương nhập từ bàn phím

HELP!!!!

Answer 1

[Tú Nguyễn]

1) var a,b,c,d,h,g:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

write('d=');readln(d);

h:=a;

if b>h then h:=b;

if c>h then h:=c;

if d>h then h:=d;

g:=a;

if b<g then g:=b;

if c<g then g:=c;

if d<g then g:=d;

writeln(' So lon nhat trong 4 so la: ',h);

writeln(' So be nhat trong 4 so la: ',g);

readln;

end.

Answer 2

[Tú Nguyễn]

2) var a:integer;

begin

write('a=');readln(a);

if a mod 2=0 then writeln(a,' la so chan ')

else writeln(a,' la so le ');

readln;

end.