câu 1:Viết chương trình tính tổng 5 số tự nhiên đầu tiên bằng cách sử dụng vòng lặp while…do
câu 2:Viết chương trình tìm ước của n với n là số nguyên dương được nhập vào từ bàn phím.
câu 1:Viết chương trình tính tổng 5 số tự nhiên đầu tiên bằng cách sử dụng vòng lặp while…do
câu 2:Viết chương trình tìm ước của n với n là số nguyên dương được nhập vào từ bàn phím.
1.program oken;
uses CrT;
var i,tong:byte;
begin
clrscr;
i:=0;
while i<5 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln(‘tong 5 so tu nhien dau tien: ‘,tong);
readln;
end.
2.program oken;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
if n mod i=0 then write(i,’ ‘);
readln;
end.
1/
Program BTH;
uses crt;
var i,tong:byte;
Begin
clrscr;
i:=0;
while i<5 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln(‘Tong 5 so tu nhien dau tien: ‘,tong);
readln;
end.
2/
Program BTH;
uses crt;
var n,i:longint;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
if n mod i=0 then write(i,’ ‘);
readln;
end.