Viết chương trình tính tổng các số chia hết cho 2 từ 1 đến 12
viết chương trình tính tổng các số từ 1 đến 100 chia hết cho 3
Program tinhtong;
uses crt;
var i, SUM, N : integer;
Begin
Clrscr;
Write('Nhap N: '); Readln(n);
SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;
Write('Tong la: ', SUM);
Readln;
End.
(3+6+9+12+18+21+27+33+36+42+45+48+52+54+60+63+66++69+72+75+78+81+84+87+90+93+96+99)⋮3
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=100; i++)
if (i%3==0) t=t+i;
cout<<t;
return 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;
}
viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 30 do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
Bài tập chương trình con: (procedure và function) Bài 4: Viết hàm tính tích các số lẻ từ 1 đến n Bài 5: Viết hàm tính tổng các số chẵn chia hết cho 3 từ 1 đến n
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so chia het cho 3 la: ',t);
readln;
end.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Viết chương trình tính tổng các số chẵn từ 1 đến n với n nhập vào từ bàn phím.
In ra các số chia hết cho 2 đó trên một hàng ngang. Dùng vòng lặp while
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
n = int(input('Nhập số n: '))
sum = 0
i = 1
while i <= n:
if i % 2 == 0:
sum += i
print(i, end=' ')
i += 1
print()
print('Tổng các số chẵn từ 1 đến n là:', sum)
viết chương trình con tính tổng các số chia hết cho 3 từ 1 đến n-1
giúp tui với ạ tui đang cần gấp á
n = int(input("Nhap vao mot so n: "))
tong = 0
for i in range(1, n):
if i % 3 == 0:
tong += i
print("Tong cac so chia het cho 3 tu 1 den", n-1, "la:", tong)