Sử dụng ngôn ngữ lập trình Pascal để viết chương trình giải quyết các bài toán sau:
Bài 1: Nhập vào một dãy các số nguyên, quá trình nhập dừng lại khi số nhập vào bằng 0. Tính tổng các số lớn hơn 0 trong dãy số vừa nhập
Bài 2: Tìm ước số chung lớn nhất và bội số chung nhỏ nhất của 3 số nguyên a, b, c được nhập vào từ bàn...
Đọc tiếp
Sử dụng ngôn ngữ lập trình Pascal để viết chương trình giải quyết các bài toán sau:
Bài 1: Nhập vào một dãy các số nguyên, quá trình nhập dừng lại khi số nhập vào bằng 0. Tính tổng các số lớn hơn 0 trong dãy số vừa nhập
Bài 2: Tìm ước số chung lớn nhất và bội số chung nhỏ nhất của 3 số nguyên a, b, c được nhập vào từ bàn phím.
Bài 2:
Program hotrotinhoc;
var t,a,b,c: integer;
function ucln(x,y: integer): integer;
var tg: integer;
begin
while y<>0 do
begin
tg:=x mod y;
x:=y;
y:=tg;
end;
ucln:=x;
end;
begin
write('Nhap 3 so a,b,c : '); readln(a,b,c);
writeln('Uoc chung lon nhat cua 3 so la :',ucln(ucln(a,b),c));
t:=(a*b) div ucln(a,b);
t:=(t*c) div ucln(ucln(a,b),c);
write('Boi chung nho nhat cua 3 so la :',t);
readln
end.
Bài 1:
Program hotrotinhoc;
var n: integer;
t: longint;
begin
t:=0;
write('Nhap so nguyen :'); readln(n);
if n>0 then t:=t+n;
while n<>0 do
begin
write('Nhap so nguyen :'); readln(n);
if n>0 then t:=t+n;
end;
write('Tong cac so lon hon 0 vua nhap la :', t);
readln
end.