viết chương trình sử dụng câu lệnh lặp với số lần biết trước
Những câu hỏi liên quan
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước in ra các số lẻ từ 1 đến 10
Xem chi tiết
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước để tính tổng của 100 số tự nhiên đầu tiên
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Đúng 0
Bình luận (0)
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình tổng các số chẵn từ 1 đến n sử dụng câu lệnh lặp với số lần chưa biết trước
Xem chi tiết
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if( i mod 2<>0) then write(i:3);
readln;
end.
Đúng 3
Bình luận (0)
uses crt;
var i,n:longint;
begin
writeln('nhap n'); readln(n);
for i:=1 to n do if i mod 2 =1 then
writeln(i);
readln;
end.
ngu ththế mà cũng ko làm được về lớp 1 mà học
Đúng 0
Bình luận (0)
Đề bài: Viết chương trình nhập n số nguyên từ bàn phím, in các số lẻ ra màn hình (sử dụng câu lệnh lặp với số lần biết trước)
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím. giupa nha các hảo hán !
Đọc tiếp
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+...+101 ( sử dụng lệnh lặp với số lần chưa biết trước)
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Em hãy sử dụng câu lệnh lặp với số lần biết trước biết chương trình pascal để giải bài toán sau:S=1+2+3+...+10
program TinhTong;
var
i, S: integer;
begin
S := 0;
for i := 1 to 10 do
S := S + i;
writeln('Tong cac so tu 1 den 10 la: ', S);
readln;
end.
Đúng 2
Bình luận (0)
Câu 14: (3,0 điểm) Em hãy sử dụng câu lệnh lặp với số lần biết trước viết chương trinh Pascal để giải bài toán sau: Tính tổng S= 1 + 2 + 3 +...+n
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)