Viết chương trình tính tổng các chữ số của một số tự nhiên n được nhập từ bàn phím
K
Khách
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.
Những câu hỏi liên quan
14 tháng 3 2023
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
1 tháng 5 2023
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
LM
2
8 tháng 3 2022
tham khảo
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
8 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++) t+=i;
cout<<t;
return 0;
}
KV
5 tháng 5 2023
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
KV
5 tháng 5 2023
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
KV
18 tháng 3 2023
Var i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
LM
1
HT
1
31 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a+b;
return 0;
}
Program HOC24;
var tg,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
while n<>0 do
begin
tg:=n mod 10;
t:=t+tg;
n := n div 10;
end;
write('Tong cac chu so cua ',n,' la: ', t);
readln
end.