Help! Gấp lém rùi giúp với!:((

[hoangminh95]

bài của em thế này:nhap dãy có n so nguyên vơi 1<n<=10^9 .Hãy tính tổng của các chữ số của các số trong dãy VD n=30 ; dãy=1 2 3 ... 30
tổng=1+1+1+1+1+1+1+1+1+2+2+2+...
ai giải giúp em với mai fải cóa rùi (giải cách nào lớp 9 hỉu dc nha)
thanks ai giải nhìu lém

[mrcuongwinter]

em ơi. em ghi cái đề anh vẫn chưa hiểu lắm. nếu tính tổng các chữ số trong dãy thi phải là 1+2+3+4+...+30 chứ. nếu như thế thì em làm thế này.

trước tiên khai báo biến tổng để tính. tong:
gán : tong=0;
cho i chạy từ 1 tới n: for i:=1 to n do
mỗi vòn lặp cộng thêm i vào: tong=tong+i;
xuất i là xong

[phamdoanw]

đây là tổng liên tiếp dùng vòng lặp và tình tổng là đựoc
var a,t,n:integer;
begin
write('nhap so n');readln(n);
t:=0;
for a:=0 to n do
t:=t+1;
writeln(tong lien tiep n so la',t);
readln;
end.
bài này khá đơn giản mà

[love-nt-forever]

úi zùi uj 2 bác giải sai cả rùi. Vì đề ở đây yêu cầu là mỗi phần tử lặp lại 9 lần(theo tui đếm) thì phải thực hiện thao tác Repeat 9 lần(lồng vao cặp begin con) để nó lặp lại 9 lần thi kết quả mới đúng. Nhân tiện tui cho các bác cái đề nè:Nhập X, phân tích X ra thừa số nguyên tố sao cho nếu nhập X là số nguyên tố thì thông báo là "Nhap khong hop le@!"(Sử dụng thuật toán repeat ý)

[lehang_gb1]

Tình tổng liên tiếp hả bạn
Vídụ n=5 thì dãy 1 2 3 4 5
S=1+2+3+4+5=15
n=12 thì dãy 1 2 3 4 5 6 7 8 9 10 11 12
S=1+2+3+4+5+6+7+8+9+1+1+1+2=51

[=========> Bổ sung bài viết <=========]



Var i,N,S,so:longint;
sodu:byte;
Begin
Write('Nhap vao so nguyen duong N:');
Readln(N);
For i:=1 to N do
begin
so:=i;
While so<>0 do
begin
sodu:=so mod 10;
S:=S+sodu;
so:=so div 10;
end;
end;
write('Tong S=',S);
Readln
End.

[nvd91]

Ai sửa giúp mình bài toán cổ gà với chó. 36 con. 100 chân !!
Mình làm nó kêu sai.

program baitoangacho;
uses crt;
var soga, socho : integer;
begin
clrscr;
readln(soga,socho);
soga:=0;
socho:=0;
repeat
soga := soga +1;
socho := socho +1;
until
(2*soga + 4*socho) = 100 and (soga + socho) = 36;
writeln('So ga la: ',Soga, ' so cho la : ',socho);
readln
end.

[lehang_gb1]

Ai sửa giúp mình bài toán cổ gà với chó. 36 con. 100 chân !!
Mình làm nó kêu sai.

program baitoangacho;
uses crt;
var soga, socho : integer;
begin
clrscr;
readln(soga,socho);
soga:=0;
socho:=0;
repeat
soga := soga +1;
socho := socho +1;
until
(2*soga + 4*socho) = 100 and (soga + socho) = 36;
writeln('So ga la: ',Soga, ' so cho la : ',socho);
readln
end.
Chương trình đúng đây bạn ah


Var ga,cho:integer;
Begin
For cho:=1 to 24 do
begin
ga:=36-cho;
if cho*4+ga*2=100 then
Begin
Writeln('So ga la:',ga);
Writeln('So cho la:',cho);
end;
end;
Readln
End.