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. Viết trong chương trình pascal 8 nhé, mình đang cần gấp

 1.

var n,s:longint;

begin

while n<>0 do

begin

write('Nhap so: '); read(n);

if n>0 then s:=s+n;end;

writeln;

write('S= ',s);

readln;end.

2.

var a,b,c:longint;
function ucln(a,b:longint):longint;
var t:longint;
begin
while a>0 do
begin
t:=b mod a;
b:=a;
a:=t;
end;
exit(b);
end;
function bcnn(a,b:longint):longint;
begin
        exit((a*b) div ucln(a,b));
end;
begin
write('Nhap a,b,c: '); readln(a,b,c);
writeln;
writeln('UCNN la: ',ucln(ucln(a,b),c));
writeln('BCNN la: ',bcnn(bcnn(a,b),c));
readln;end.

Bài 1:

var n,s:longint;

begin

while n<>0 do

begin

write('Nhap so: '); read(n);

if n>0 then s:=s+n;

end;

writeln;

write('S= ',s);

readln;

end.

Bài 2:

var a,b,c:longint;
function ucln(a,b:longint):longint;
var t:longint;
begin
while a>0 do
begin
t:=b mod a;
b:=a;
a:=t;
end;
exit(b);
end;
function bcnn(a,b:longint):longint;
begin
        exit((a*b) div ucln(a,b));
end;
begin
write('Nhap a,b,c: '); readln(a,b,c);
writeln;
writeln('UCNN la: ',ucln(ucln(a,b),c));
writeln('BCNN la: ',bcnn(bcnn(a,b),c));
readln;
end.