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.
Viết chương trình tính tổng các số lẻ và chia hết cho 3 trong phạm vi từ 1 đến 20
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if ((i%3==0) and (i%2==1)) t=t+i;
cout<<t;
return 0;
}
Đoạn chương trình sau giải bài toán nào?
For i=1 to M do
if (i mod 3=0) and (i mod 5=0) then
T:=T+i
A: Tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến M
B: Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến M
C: Tổng các số chia hết cho 3 trong phạm vi từ 1 đến M
D: Tổng các số chia hết cho 5 trong phạm vi từ 1 đến M
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
Viết chương trình nhập từ bàn phím số nguyên dương N,tính tổng các giá trị lẻ và chia hết cho 3 trong phạm vi từ 1 đến N.In kết quả ra màn hình (sử dụng cú pháp while...do)
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha
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.
1. Nhập số nguyên n từ bàn phím.
2. Viết ra màn hình (viết theo dòng) các số trong phạm vi từ 1 đến n và chia hết cho 5.
3. Tính tổng S = 1+2+3+…+n.
Program Vy Cầm Chip
Uses Crt;
Var S, i, n: integer;
Begin;
Read (n);
S:=0
For i:=1 to n do S:=S+i
Write (S);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
cout<<"Cac so chia het cho 5 va nho hon n la: ";
for (i=1; i<=n; i++)
if (i%5==0) cout<<i<<endl;
t=0;
for (i=1;i<=n; i++) t+=i;
cout<<"Tong cua day so tu 1 den n la: "<<t;
return 0;
}
Viết chương trình nhập vào hai số nguyên a,b. tính tổng các số chia hết cho 5 nhưng không chia hết cho 3 trong phạm vi từ a đến b
