Bài 1: Viết chương trình in ra màn hình bảng cửu chương n (Với n nhập từ bàn phím)
Bài 2: Viết chương trình tính tổng
S= 1+1/2+1/3+...+1/n (Với n nhập từ bàn phím)
Bài 3: Viết chương trình tính tổng của 100 số tự nhiên.
S=1+2+3+...+100
Bài 4: Bài toán vui: thỏ và gà
Trong giỏ vừa thỏ vừa gà
Một trăm (100) cái cẳng bốn ba (43) cái đầu
Hỏi có mấy con gà, mấy con thỏ?
Bài 5:Viết chương trình Pấcl tìm ước chung lớn nhất (ƯCLN) của x và y. (Với x,y là 2 số nguyên nhập từ bàn phím)
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Bài 1:
uses crt;
var n,i: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to 10 do writeln(n,' x ',i,' = ',n*i);
readln
end.
Bài 2:
uses crt;
var n,i: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/i;
write('S=',s:2:3);
readln
end.
Bài 3:
uses crt;
var n,i,s: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+i;
write('S=',s);
readln
end.
Bài 4:
uses crt;
var x: integer;
begin
clrscr;
for x:=1 to 43 do if x*2+(43-x)*4=100 then writeln('Ga=',x,'; Tho=',43-x);
readln
end.
Bài 5:
uses crt;
var x,y,i,uc: integer;
begin
clrscr;
write('X='); readln(x);
write('Y='); readln(y);
for i:=1 to x do if (x mod i=0) and (y mod i=0) then uc:=i;
write('UCLN=',uc);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Đặt câu với mỗi từ nói về truyền thống của dân tộc Việt Nam các từ có trong bài a,cần cù.b,dũng cảm.c,đoàn kết
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin