Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
program TinhTongChiaHetChoBa;
var
N, i, Tong: integer;
begin
writeln('Nhap so nguyen duong N (3 <= N <= 50):');
readln(N);
if (N < 3) or (N > 50) then
begin
writeln('N khong hop le!');
readln;
exit;
end;
Tong := 0;
i := 3;
while i <= N do
begin
if i mod 3 = 0 then
begin
Tong := Tong + i;
end;
i := i + 1;
end;
writeln('Tong cac so tu 3 den ', N, ' chia het cho 3 la: ', Tong);
readln;
end.
program TongCacSoChiaHetChoBa;
var
n, i, sum: integer;
begin
repeat
Write('Nhap so nguyen n (3 <= n <= 50): ');
Readln(n);
until (n >= 3) and (n <= 50);
sum := 0;
for i := 3 to n do
begin
if i mod 3 = 0 then
sum := sum + i;
end;
WriteLn('Tong cac so chia het cho 3 trong khoang tu 3 den ', n, ': ', sum);
ReadLn;
end.
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 12 do
if i mod 2=0 then t:=t+i;
writeln(t);
readln;
end.
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N
Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N
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.
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
#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;
}