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.
Giúp mình với,mình cần gấp lắm huhu!!!
Program BTH;
uses crt;
var s,i,n:longint;
Begin
clrscr;
i:=0;
repeat
i:=i+1;
write(‘Nhap so thu ‘,i,’ : ‘);readln(n);
If n>0 then s:=s+n;
until n=0;
writeln(‘Tong cac so lon hon 0 trong day la: ‘,s);
readln;
end.