Viết chương trình sau bằng cách sử dụng câu lệnh while…do
1.in các số từ 3 đến 8
2. In các ước số của n
3.in bảng cửu chương n
4.tính tổng các số từ 1 đến n
Làm dùm mình 2 bài trở lên nha, mình đang cần gấp
Viết chương trình sau bằng cách sử dụng câu lệnh while…do
1.in các số từ 3 đến 8
2. In các ước số của n
3.in bảng cửu chương n
4.tính tổng các số từ 1 đến n
Làm dùm mình 2 bài trở lên nha, mình đang cần gấp
Bài 2+3:
uses crt;
var n,i:word;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Cac uoc cua n la:’);
for i:=1 to n do
if n mod i=0 then write(i,’ ‘);
writeln;
writeln(‘Bang cuu chung ‘,n,’:’);
for i:=1 to 10 do
writeln(i,’x’,n,’=’,i*n);
readln
END.
Chúc bạn học tốt!
Bài 1:
program inso;
uses crt;
var i:byte;
begin
clrscr;
i:=3;
while i<=8 do
begin
write(i,’ ‘);
i:=i+1;
end;
readln;
end.
Bài 2:
program uocso;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Cac uoc cua ‘,n,’ la: ‘);
i:=1;
while i<=n do
begin
if n mod i=0 then write(i,’ ‘);
i:=i+1;
end;
readln;
end.
Bài 3:
program cuuchuongn;
uses crt;
var n,i:byte;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
writeln(‘Bang cuu chuong ‘,n,’ la: ‘);
i:=1;
while i<=10 do
begin
write(n,’ x ‘,i’ = ‘,n*i);
i:=i+1;
end;
readln;
end.
Bài 4:
program tinhtong;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0; i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write(‘Tong cac so tu 1 den ‘,n,’ la: ‘,t);
readln;
end.