Sử dụng lệnh While...do nha, mn giúp mình với!!
Những câu hỏi liên quan
Sử dụng lệnh For...do nha, mn giúp mình với!!!
mình ghi phần chính thôi nhé!
writeln('nhap n');readln(n);
1.For i:=1 to 9 do writeln(n,'x',i,'=',n*i);
2.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 0) then writeln(i);
3.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 1) then writeln(i);
4. uocchung:=1;for i:=1 to n do if n mod i = 0 then uocchung:=uocchung+i;
5. For i:=2 to n-1 do if n mod i = 0 then begin
if n = i then writeln( n,' la so nguyen to') else writeln(n, 'khong phai la so nguyen to');
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then write(i:4):
readln;
end.
Đúng 0
Bình luận (2)
Xem thêm câu trả lời
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
#include <bits/stdc++.h>
using namespace std;
bool kt;
int n,i;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if ((kt==true) and (n>1)) cout<<"YES";
else cout<<"NO";
return 0;
}
Đúng 0
Bình luận (0)
10 tháng 3 2022 lúc 21:39
mn ới, ét o ét nèo ;-;Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?A. if...then B. if...then...else C. for...to…do D. while...do Câu 9. Trong Câu lệnh lặp: For i : 1 to 15 do s: s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.Câu 10 : Trong câu...
Đọc tiếp
mn ới, ét o ét nèo ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?
A. if...then B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
Xem thêm câu trả lời
sử dụng câu lệnh while... do viết chương trình tìm n nhỏ nhất để tổng đầu tiên lớn hơn 100
Mn giúp mình với ạ :<
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)
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)
30 tháng 3 2021 lúc 19:21
Bài 1: Tính tổng ( Sử dụng lệnh while....do )A1+dfrac{1}{2} +dfrac{1}{3} +.......+dfrac{1}{n} ( n được nhập từ bàn phím )Bài 2: Tính tổng ( Sử dụng lệnh while....do )T1+dfrac{1}{3} +dfrac{1}{5} +........+dfrac{1}{n} ( n nhập từ bàn phím ) Bài 3: Tính tổng ( Sử dụng lệnh while....do )Adfrac{1}{1cdot3} + dfrac{1}{2cdot4} + dfrac{1}{3cdot5} +.........+dfrac{1}{nleft(n+2right)} ( n nhập từ bàn phím ) Giúp với mai mink ktra rồi!
Đọc tiếp
Bài 1: Tính tổng ( Sử dụng lệnh while....do )
A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )
Bài 2: Tính tổng ( Sử dụng lệnh while....do )
T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím )
Bài 3: Tính tổng ( Sử dụng lệnh while....do )
A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím )
Giúp với mai mink ktra rồi!
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
Cách 1 dùng lệnh for do:
Uses crt;
var i,n,k: integer;
begin clrcsr;
readln(n);
for i:=1 to n do begin
if(i mod 2=0) and (i>=10) then k:=k*i;
end;
writeln(k);
readln;
end.
Cách 2 dùng lệnh while do
Uses crt;
var m,n,o: integer;
begin clrcsr;
readln(n);
o:=1;
m:=1;
while (m<n) do begin
m:=m+1;
if(m mod 2=0) and (m>=10) then o:=o*m;
end;
writeln(o);
readln;
end.
Đúng 4
Bình luận (0)
viết ct tính tổng:A=1+1/2+1/3+...+1/N (n thuộc z)
a) sử dụng lệnh for...to...do
b)sử dụng lệnh while...do
program fordo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Tong la ',s);
readln
end.
Đúng 0
Bình luận (0)
program whiledo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;i:=1;
While i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln('Tong la ',s);
readln
end.
Đúng 0
Bình luận (0)