hãy dùng câu lệnh while...do để viết chương trình tính tổng của các số nguyên từ 5 đến 10
Những câu hỏi liên quan
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Đúng 0
Bình luận (0)
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Đọc tiếp
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
viết chương trình tính tổng của các số tự nhiên từ 1 đến 100 KHÔNG DÙNG LỆNH while do
#include <bits/stdc++.h>
using namespace std;
long long i,t;
int main()
{
t=0;
for (i=1;i<=100;i++)
t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0. Tính tổng các số chẵn, tổng các só lẻ đã nhập, rồi in kết quả ra màn hình?
Xem thêm câu trả lời
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
Đúng 0
Bình luận (0)