Viết chương trình in ra các số lẽ nhỏ hơn hoặc bằng n ( Sữ dụng while ... do )
Những câu hỏi liên quan
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Đúng 2
Bình luận (0)
viết chương trình tính tổng n các số lẻ nhỏ hơn hoặc bằng n bằng
-for do
-while do
for ... do
program Tinh_S;
uses crt;
var i,n:byte;
S:longint;
begin
writeln('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+i;
writeln('Tong cac so le nho hon hoac bang n la, S=',S)
readln
end.
Đúng 2
Bình luận (2)
* While....do
Uses crt;
var n,i,k: integer;
begin clrscr;
readln(n);
i:=0;
while(i<=n) do begin
i:=i+1;
if(i mod 2<>0) then k:=k+i;
end;
writeln(k);
readln;
end.
* for...do
Uses crt;
var n,i,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then u:=u+i;
writeln(u);
readln;
end.
Đúng 1
Bình luận (2)
while... do
program Tinh_P;
uses crt;
var i,n:byte;
P:longint;
begin
writeln('Nhap so n='); readln(n);
P:=0; i:=1;
while i<=n do
begin
if i mod 2=1 then P:=P+i;
i:=i+1;
end;
writeln('Tong so le nho hon hoac bang n la, P=',P);
readln
end.
Đúng 3
Bình luận (0)
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.Ví dụ: -Input: n6, {1,2,3,4,5,6} - Output: - Tổng số chẵn: 12; - Tổng số lẽ: 9;
Đọc tiếp
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.
Ví dụ: -Input: n=6, {1,2,3,4,5,6}
- Output: - Tổng số chẵn: 12;
- Tổng số lẽ: 9;
viết chương trình sử dụng while do để tìm in ra n(n là số tự nhiên) s=1,2,3....n n là số lớn nhất và nhỏ hơn 50
tham khảo
Program HOC24;
var n: byte;
begin
n:=0;
while n<50-1 do n:=n+1;
write('N=',N);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình in số chẵn nhỏ hơn hoặc bằng n bằng vòng lặp for...do
Var n,i,so:integer;
Begin
Write('Nhap n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 2 = 0 then writeln(so);
End;
Readln;
End.
Đúng 1
Bình luận (0)
viết chương trình nhấp số tự nhiên N từ bàn phím và in ra màn hình các số lẻ nhỏ hơn hoặc bằng N
#include <bits/stdc++.h>
using namespace std;
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%2==1) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 số nguyên N in ra màn hình các số hoàn chỉnh nhỏ hơn hoặc bằng N.
Helpppppp meeeeeeee!!!!
{program bt_1;
uses crt;
Var:S ,n, i, j:longint;
Begin
clrsr;
Write('Nhap n');Readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=0 to i do
if i mod j:=0 then S:=S+j;
if S=2*i then Write (i:5);
end;
readln;
end.
}
Đúng 0
Bình luận (0)
8 tháng 3 2021 lúc 23:24
Viết chương trình đưa ra màn hình các số nhỏ hơn 30 ( số tự nhiên ) bằng hai cách :- Dùng lệnh while ...do-dùng lệnh for ...do
Xem chi tiết
Cách 1: while..do
Program HOC24;
var i: integer;
begin
i:=1;
while i<30 do
begin
write(i,' ');
i:=i+1;
end;
readln
end.
Cách 2: for..do
Program HOC24;
var i: integer;
begin
for i:=1 to 29 do write(i,' ');
readln
end.
Đúng 1
Bình luận (0)