Viết chương trình tính S=1+2_+100 của chương trình pascal
H24
Những câu hỏi liên quan
viết chương trình pascal tính tổng sau :
s= 1 + 1/2+1/3+1/4+...+1/100
Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=1 to 100 do s:=s+1/i;
write('S= ',s:2:2);
readln
end.
Đúng 1
Bình luận (0)
MN
10 tháng 3 2022 lúc 19:23
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
MN
10 tháng 3 2022 lúc 14:27
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình Pascal có khai báo và sử dụng biếnNhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.
Đọc tiếp
Viết chương trình Pascal có khai báo và sử dụng biến
Nhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.
a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).
b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
Viết chương trình tính tổng sau S=1+32+52+72+....+(2n-1)2
Pascal
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
bằng thuật toán của bài 6 hãy viết chương trình pascal tính tổng 100 số tự nhiên
NC
6 tháng 4 2023 lúc 21:40
Viết chương trình Pascal tính tổng S = 1 + 2 +…+ 10. Dùng câu lệnh for… to… do
Program HOC24;
var i,s: byte;
begin
s:=0;
for i:=1 to 10 do s:=s+i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)