Question

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.

Answer 1

Bài 1:

uses crt;

var a,s:integer;

begin

clrscr;

s:=0;

repeat

write('nhap a='); readln(a);

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

until a=0;

writeln('tong cac so lon hon 0 trong day so ban vua nhap la: ',s);

readln;

end.

Answer 2

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.

Answer 3

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.