Câu 1: Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do Câu 2: Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số. Hai số nhập từ bàn phím.? Sử dụng câu lệnh While…do.

Bài 1 :

uses crt;

var k, N, S : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

S := 0;

for k := 1 to N do S := S + k;

write('Tong S = ', S);

readln

end.

Câu 2 :

uses crt;

var a1, a2 : integer;

begin

clrscr;

write('Nhap hai so : '); readln(a1, a2);

while a1 <> a2 do

if a1 > a2 then a1 := a1 - a2 else a2 := a2 - a1;

write('UCLN : ', a1);

readln

end.

1.

program Tin_hoc;

uses crt;

var i,n,s:integer;

begin

clrscr;

write('N=');readln(n);

s:=0;

for i:= 1 to n do s:=s+i;

writeln('S=',s);

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n,m,uoc:integer;

begin

clrscr;

writeln('Nhap 2 so:');

readln(n);

readln(m);

for i:= 1 to n do if (n mod i = 0) and ( m mod i = 0) then uoc:=i;

writeln('Uoc cua hai so ',n,' va ',m,' la: ',uoc);

readln;

end.