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
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
By Melanie
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.
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.