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 ạ
Những câu hỏi liên quan
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;
}
Đúng 0
Bình luận (0)
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;
}
Đúng 0
Bình luận (0)
1Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)2Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 203Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20
Xem chi tiết
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (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);
Đúng 0
Bình luận (0)
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 câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 20.
T:=0;
for i:= 1 to 20 do
If i mod 2 = 1 then tong:=i + T;
Đúng 1
Bình luận (0)
*Cách khác
for i:=1 to n do
if i mod 2<>0 then t:=t+i;
Đúng 1
Bình luận (0)
23 tháng 3 2023 lúc 9:57
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
Đúng 0
Bình luận (1)
b1. đếm số lượng số vừa chia hết cho 3 vừa chia hết cho 2 trong phạm vi từ 20 đến 1000.
Program HOC24;
var d,i: integer;
begin
d:=0;
for i:=20 to 1000 do
if (i mod 2=0) and (i mod 3=0) then d:=d+1;
write(d);
readln
end.
Đúng 2
Bình luận (0)