Thị Thu Mỹ Trịnh
Hỏi từ APP VIETJACK
Viết chương trình tính tích 10 số tự nhiên đầu tiên.
- Viết chương trình tính tổng bình phương S = 1²+ 2 ².....+n². Với n là số nguyên dương được nhập từ bàn phím.
- Viết chương trình tính tổng: S = 1 + 1/2 + 1/3 +...1/100 sử dụng hai cấu trúc For...do
và while..do.
- Viết chương trình tính tổng bình phương S = 1²+ 2 ².....+n². Với n là số nguyên dương được nhập từ bàn phím.
- Viết chương trình tính tổng: S = 1 + 1/2 + 1/3 +...1/100 sử dụng hai cấu trúc For...do
và while..do.
Quảng cáo
1 câu trả lời 382
Câu 1:
Var i,s:integer;
Begin
s:=1
for i:=1 to 10 do s:=s*i;
writeln('Tich: ',s);
readln
end.
Begin
s:=1
for i:=1 to 10 do s:=s*i;
writeln('Tich: ',s);
readln
end.
Câu 2:
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong S=',s);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45509
-
Hỏi từ APP VIETJACK28401
Gửi báo cáo thành công!
