Question

Câu 1: Viết chương trình nhập vào một sô nguyên dương y từ bàn phím. Hãy viết chương trình pascal số y có chia hết cho 5 hay không và in kết quả ra màn hình.

Câu 2: Viết chương trình nhập vào 3 số thực m,n,h. Hãy viết trương trình pascal tìm điểm lớn nhất trong 3 số đó và in kết quả ra màn hình.

Câu 3: Viết chương trình nhập vào 2 số nguyên x,y từ bàn phím. Em hãy viết chương trình pascal sắp xếp 2 biến trên theo giá trị tăng dần và in ra màn hình kết quả đã sắp xếp.

Answer 1

1)Program songuyenduong;

Uses crt;

Var y: integer;

Begin

clrscr;

writeln('nhap so y'); readln(y);

if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');

readln;

End.

Answer 2

2)

Program solonnhat;

uses crt;

var m,n,h,max: real;

Begin

clrscr;

writeln('nhap so m'); readln(m);

writeln('nhap so n'); readln(n);

writeln('nhap so h'); readln(h);

max:=m;

if m < n then max:=n;

if max < h then max=h then write('so lon nhat',max);

readln;

End.

Answer 3

3)

Progam sapxep;

uses crt;

var x,y: integer;

begin

clrscr;

write('nhap so x'); readln(x);

write('nhap so y'); readln(y);

if x<y then write(x,' ',y);

if x>y then write(y,' ',x) else write(x,' ',y);

end.

Answer 4

2)var m,n,h,max:real;
begin
write('m=');readln(m);
write('n=');readln(n);
write('h=');readln(h);
max:=m;
if m<n then max:=n;
if m<h then max:=h;
writeln(' So lon nhat la: ',max:1:0);
readln;
end.

Answer 5

1) var y:integer;
begin
write('y=');readln(y);
if y mod 5=0 then write(y,' chia het cho 5 ')
else write(y,' khong chia het cho 5 ');
readln;
end.

Answer 6

còn bài 3 bạn kia lm cũng dc rồi