VÒNG LẶP FOR
1. Viết chương trình tính tổng: 1 + 2 + 3 + 4 + 5 +....+ 20
giúp mình vs
Những câu hỏi liên quan
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S? S:0;For i:1 to 5 do S :S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:5 to 10 do
Đọc tiếp
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do
Câu 2:Viết chương trình in ra màn hình 100 lần tên em
Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên
Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n
Câu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2
Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10 do
Cho bàu toán sau: viết chương trình tính tổng T=1+2+...+120 hãy sử dụng vòng lặp while do viết chương trình tính tổng bằng T (Giúp t vs mn ơi t cần gấp
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
Đúng 3
Bình luận (0)
viết chương trình tính tổng số tự nhiên băng 2 cách, sử dụng vòng lặp for-to-do và sử dụng vòng lặp while-do
GIÚP MÌNH VỚI
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
Đúng 1
Bình luận (1)
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 3: Viết chương trình tính tổng S 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)Các bạn giúp mình được không ạ.
Đọc tiếp
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình tính tổng chẵn (lẻ) n số tự nhiên nhập từ bàn phím (dùng vòng lặp) Giúp vs ạ em cần gấp
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
Đúng 1
Bình luận (2)
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1+=x;
else t2+=x;
}
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
var s, i: real;
begin
s := 0;
for i := 1 to 50 do
s := s + 1/i;
writeln('Tong s = ', s:0:2);
end.
Đúng 2
Bình luận (1)
while..do
Program HOC24;
var i: integer;
s: real;
begin
i:=1;
while i<=50 do
begin
s:=s+i;
i:=i+1;
end;
write('S = ',s:6:2);
readln
end.
Đúng 1
Bình luận (0)
câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50
giải giúp em ạ
Var i:integer;
s:real;
Begin
For i:=1 to 50 do
s:=s + 1/i;
Write('Tong la ',s:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)