Viết chương trình tính tổng:
S= 1+3=5+7+...+19
sử dụng câu lệnh điều kiện if then và câu lệnh for do
mọi người giúp mình nha cảm ơn nhiều.
Những câu hỏi liên quan
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s);
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
Đúng 1
Bình luận (0)
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
7 tháng 2 2022 lúc 14:12
Giúp mình với ạ: Sử dụng câu lệnh for...to...do viết chương trình tính tổng sau
Lưu ý: Viết cả chương trình
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
readln;
end.
Đúng 3
Bình luận (0)
Viết chương trình từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 5 trong phạm vi 1 đến N. Rồi in kết quả ra màn hình
giúp mình với cảm ơn!
program songuyenduong;
var
n, i : integer;
sum : integer;
begin
writeln('Nhap vao so nguyen duong N: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln(sum);
end.
Đúng 2
Bình luận (0)
Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
Đúng 0
Bình luận (0)
Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình.
Đọc tiếp
Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (i%6==0) t+=i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
12 tháng 5 2021 lúc 10:42
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S1+2+3+...+20 (3 điểm)Câu 9 (1 điểm). Cho đoạn chương trình: j: 2; For i: 1 to 5 do j: j + 2;Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?Giải thích?
Đọc tiếp
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Câu 8.
program im_14424;
uses crt;
var S: byte;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 20 do
S:=S+i;
writeln('Tong cua 20 so tu nhien dau tien la: ,S);
readln
end.
Câu 9.
j:=2 → Gán j = 2.
for i:=1 to 5 do → lặp lại 5 lần
j:=j+2 →
Lần 1: 4
Lần 2: 6
Lần 3: 10
Lần 4: 12
Lần 5: 14
Đúng 2
Bình luận (0)
Câu 1:
uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.
Câu 2:
i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12
Đúng 1
Bình luận (1)
Viết chương trình tính tổng S=2+4+6+…+2n với n nhập vào từ bàn phím (sử dụng câu lệnh For và If)
Var i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
s:=s + 2*i;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (0)
Hãy sử dụng câu lệnh for do và while do để viết chương trình tính tổng B= 1/3+1/6+1/9+...+1/3n
program tong_for_to_do;
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('nhap n:');readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+1/i;
writeln('tong la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
program tong_while_do;
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('nhap n:');readln(n);
t:=0;i:=3;
while i<=3*n do
begin
t:=t+1/i;
i:=i+3;
end;
writeln('tong la: ',t);
readln;
end.
Đúng 0
Bình luận (0)