Viết chương trình nhập vào một số nguyên cho đến khi nhận được số nguyên dương thì dừng C#
Những câu hỏi liên quan
Viết chương trình nhập vào các số nguyên cho đến khi nhập số chẵn thì dừng lại. Tính tổng các số nguyên dương vừa nhập
uses crt;
var a,t:integer;
begin
clrscr;
t=0;
repeat
readln(a);
if (a>0) then t:=t+a;
until (a mod 2=0);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập các số nguyên dương từ bàn phím cho đến khi gặp phải số<=0 thì dừng .In ra màn hình các số vừa nhập.
Viết chương trình nhập vào một dãy số nguyên cho đến khi gặp số 0 thì dừng lại. Tính tổng các số chẵn, thông báo ra màn hình.
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=n else t:=0;
while n<>0 do
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=t+n;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 0
Bình luận (0)
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Đúng 0
Bình luận (0)
9 tháng 5 2022 lúc 21:39
Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Tính tổng các số lẻ được nhập vào.
refer
program dem;
uses crt;
var n,i,j,S: integer;
a:array[1..100] of integer;
begin
i:=0;
S:=0;
while(readln(n)) do
begin
if(n:=0) then break;
i:=i+1;
a[i]:=n;
end;
for j:=1 to i do
begin
if(a[j] mod 2 <> 0) then S:=S+a[j];
end;
write(‘Tong cua cac so le la: ‘,S);
readln;
Đúng 1
Bình luận (0)
9 tháng 5 2022 lúc 21:06
Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Tính tổng các số lẻ được nhập vào.
uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
readln(a);
if (a mod 2<>0) then t:=t+a;
until a=0;
writeln(t);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình cho phép nhập vào nhiều số nguyên cho đến khi gặp số 0 thì kết thúc. Đếm xem trong các số vừa nhập có bao nhiêu số âm, bao nhiêu số dương. bằng Python
so_am = 0
so_duong = 0
while True:
n = int(input("Nhap vao mot so nguyen: "))
if n == 0:
break
elif n < 0:
so_am += 1
else:
so_duong += 1
print("So am: ", so_am)
print("So duong: ", so_duong)
Đúng 1
Bình luận (0)
Viết chương trình nhập và tính tổng các số nguyên khi nào nhập vào số 0 thì dừng lại và thông báo tổng các số đã nhập
uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
write('Nhap a='); readln(a);
t:=t+a;
until a=0;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn hình.
Xem chi tiết
Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn trong dãy
uses crt;
var n,t:integer;
{------------------kiem-tra-so-nguyen-to----------------------------}
function ktnt(x:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
{----------------------chuong-trinh-chinh------------------------}
begin
clrscr;
t:=0;
repeat
write('Nhap n='); readln(n);
if (n mod 2=0) then t:=t+n;
until ktnt(n)=false;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)