VCT nhập N số tự nhiên đầu tiên in ra chẵn lẻ
Những câu hỏi liên quan
Đề bài: vct tính tổng các số chẵn, số lẻ từ 1-n ( được nhập từ bàn phím), sau đó in tổng chẵn, tổng lẻ ra màn hình
VCT in ra bình phương các số chẵn ( lẻ ) bé hơn n ( n nhập từ bàn phím ) Giúp mik vs, cam onn nhieuu
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P.
2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N.
3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N.
4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Đọc tiếp
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Câu 1: Viết chương trình nhập vào từ bàn phím số tự nhiên n và in ra màn hình số đã nhập chẵn hay lẻ( vd 3 là số lẻ, 4 là số chẵn)
Viết chương trình nhập vào 1 số nguyên dương N.Sau đó in ra màn hình tổng của các số chẵn số trong N số tự nhiên đầu tiên (S=2+4+6+...+N)
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n : '); readln(n);
s:=0;
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)
pascal
program sum_of_evens;
var
i, n, sum: integer;
begin
write('Enter a positive integer: ');
readln(n);
sum := 0;
for i := 2 to n step 2 do
begin
sum := sum + i;
end;
writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.
Đúng 0
Bình luận (0)
Hãy chỉ ra INPUT, OUTPUT và mô tả thuật toán cho bài toán sau:
a. Tổng của 50 số tự nhiên đầu tiên
b. Nhập a: cho biết a là số chẵn hay số lẻ
Xem chi tiết
a) Tổng của 50 số tự nhiên đầu tiên
Xác định bài toán:
-Input: 50 số tự nhiên đầu tiên
-Output: Tổng của 50 số đó
Mô tả thuật toán:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=n thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
b) Kiểm tra a là số chẵn hay số lẻ
Xác định bài toán
-Input: Số a
-Output: Kiểm tra xem a là số chẵn hay số lẻ
Mô tả thuật toán
-Bước 1: Nhập a
-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn
không thì a là số lẻ
-Bước 3: Kết thúc
Đúng 1
Bình luận (0)
Bài tập 1: Viết chứng trình tính tổng 3 số nguyên được nhập từ bàn phím
Bài tập 2: Viết chương trình nhập vào một số và in ra màn hình kết quả số chẵn hay số lẻ
Bài tập 3: Mô tả thuật toán tính tổng của 100 số tự nhiên đầu tiên
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
Đúng 0
Bình luận (0)
bài 3 :
B1: S <- 0 ; i<-0;
B2: i<- i+1;
B3: Nếu i <= 100 thì S:=S+i; Và quay lại B2.TRong trường hợp ngược lại thông bào kết quả rồi kết thúc thuật toán.
Đúng 0
Bình luận (1)
VCT nhập vào số tự nhiên n. In ra màn hình kết quả tính n!
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=0;
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng n số tự nhiên ngẫu nhiên in ra màn hình các số là số chẵn ở vị trí lẻ
