C
Mấy số nhỏ thì OK còn mấy số to như zầy thì làm sao mà tính đượcBài 1 : Tổng các chữ số
Cho số nguyên dương n. VIết các số nguyên liên tiếp từ 1 tới n trong hệ thập phân để tạo ra một dãy các chữ số. Hãy tính tổng các chữ số của dãy.
Ví dụ : với n = 12, ta có dãy chữ số 123456789101112 với tổng là 51.
Test n=
12
123
2468
13579
12481632
23456789
9876543210
123123123123
123456789123456789
98765432100123456789
var c,so,k:string;
dem:longint;
function cong2so(a,b:string):string;
var n,s,i,i1,i2,d,code:integer;
s1,st:string;
begin
while length(a)<>length(b) do
begin
if length(a)>length(b) then b:='0'+b;
if length(a)<length(b) then a:='0'+a;
end;
d:=0;
s1:='';
for i:=length(a) to 1 do
begin
val(a[i],i1,code);
val(b[i],i2,code);
n:=i1+i2+d;
s:=n mod 10;
d:=n div 10;
str(s,st);
s1:=st+s1;
end;
if d=1 then
begin
str(d,st);
s1:=st+s1;
end;
cong2so:=s1;
end;
begin
write('nhap so: ') ;readln(so);
k:='1';
dem:=1;
c:='1';
while k<>so do
begin
k:=cong2so(k,c);
dem:=dem+length(k);
end;
write('Tong la: ',dem);
readln;
end.
var n, s: int64; i:byte;
begin
write(' nhap n');
readln(n);
S:=45*(n div 9);
for i:=1 to n mod 9 do
s:=s+i;
writeln(' tong =',s);
readln;
end.
Cái gì thế này? Tính tổng các chữ số à??? Mình lại làm nhầm tính tổng số các chữ số mất rồi. Chết thật chết thật. Nhầm lẫn tai hại. ^Bài 1 : Tổng các chữ số
Cho số nguyên dương n. VIết các số nguyên liên tiếp từ 1 tới n trong hệ thập phân để tạo ra một dãy các chữ số. Hãy tính tổng các chữ số của dãy.
Ví dụ : với n = 12, ta có dãy chữ số 123456789101112 với tổng là 51.
Test n=
12
123
2468
13579
12481632
23456789
9876543210
123123123123
123456789123456789
98765432100123456789
đề của người hok pít lập trình là gì nèk
viết thuật toán để tính tổng bình phương các số là bội của 2 và 5 trong dãy từ 1 tới 100
Cái gì thế này?? Yêu cầu tính tổng các số chia hết cho 2 hoặc 5 trong khoảng từ 1 đến 100 cơ mà. Sao chỉ chạy đến 5? Sửa lại thế này nha.cái pascal nhà e hỏng nên viết thế này cho nhanh
program binh_phuong;
uses crt;
var S, i:integer;
begin
S:=0;
for i:= 1 to 5 do if (i mod 2 = 0) or (i mod 5 = 0) then S:=S+i*i;
writeln('Tong la: ',S);
readln
end.
đề tiếp (cái này trong đề học kì của em)
viết chương trình nhập một mảng gồm 20 số nguyên, in mảng
sắp xếp lại mảng như sau: 10 số đầu tăng dần, 10 số sau giảm dần
in mảng sau sắp xếp
var S, i:integer;
begin
S:=0;
for i:= 1 to 100 do if (i mod 2 = 0) or (i mod 5 = 0) then S:=S+i;
writeln('Tong la: ',S);
readln;
end.
var a:array[1..100]of integer;
i,j,tg:integer;
begin
for i:=1 to 20 do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=11 to 19 do
for j:=j+1 to 20 do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln('mang sau khi sap xep la');
for i:=1 to 20 do write(a[i]:3);
readln;
end.