Viết CT tính tổng các số chẵn (số lẻ) trong phạm vi từ 1-30
Viết ctrinh dưới đây bằng ngôn ngữ lập trình pascal? a)Tính tổng các số lẻ trong phạm vi từ 1 đến N(S=1+3+5+7...+N) b)Tính tổng các số chẵn trong phạm vi từ 1 đến N(S=2+4+6+8...+N c)Tính tích các số chẵn trong phạm vi từ 1 đến N(P=2.4.6...N) d)Tính tích các số lẻ trong phạm vi từ 1 đến N(P=1.3.5...N)
Program HOC24;
var i,n: integer;
S,P: longint;
begin
write('Nhap n: '); readln(n);
{..............................................}
readln
end.
-----------------------------------------------------------
Bạn điền vào {........................} theo từng bài nhé
a) S:=0;
for i:=1 to N do if i mod 2=1 then s:=s+i;
write('S= ',s);
b)
S:=0;
for i:=1 to N do if i mod 2=0 then s:=s+i;
write('S= ',s);
c) P:=1;
for i:=1 to N do if i mod 2=0 then p:=p*i;
write('P= ',p);
d)
P:=1;
for i:=1 to N do if i mod 2=1 then p:=p*i;
write('P= ',p);
tính tổng các số lẻ trong phạm vi từ 1 đến 20
tính tổng các số chẵn trong phạm vi từ 1 đến n
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Chị giải theo cách khác được không ạ
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Giúp em với ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
Bài 1: Viết CT nhập vào 2 số nguyên dương a, b (a<b), tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a đến b.
a) ý tưởng
b) xác định bài toán
c) thuật toán
Bài 2: Ông Ba có số tiền là S, ông gửi tiết kiệm ngân hàng với lãi suất 1.5%/tháng. Hỏi sau 12 tháng gửi (không rút tiền lãi hàng tháng), ông ta được số tiền là bao nhiêu?
Bài 1: Viết CT nhập vào 2 số nguyên dương a, b (a<b), tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a đến b.
a) ý tưởng
b) xác định bài toán
c) thuật toán
Bài 2: Ông Ba có số tiền là S, ông gửi tiết kiệm ngân hàng với lãi suất 1.5%/tháng. Hỏi sau 12 tháng gửi (không rút tiền lãi hàng tháng), ông ta được số tiền là bao nhiêu?
a) ý tưởng
b) xác định bài toán
c) thuật toán
Nhập vào số nguyên n,tính tổng các số chẵn,lẻ trong phạm vi từ 1 đến n
Program HOC24;
var i,n: integer;
tc,tl: longint;
begin
write('Nhap N: '); readln(n);
tc:=0; tl:=0;
for i:=1 to n do if i mod 2=0 then tc:=tc+i else tl:=tl+i;
writeln('Tong chan la: ',tc);
write('Tong le la: ',tl);
readln
end.
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.
Nhập 2 số nguyên có 3 chữ số. Xuất các số trong phạm vi 2 số này Tính và trả lời tổng các số chẵn và tích các số lẻ trong phạm vi ấy (python)