Bài 1: Dùng câu lệnh While ..Do viết chương trình tính tổng các số nguyên từ 1 đến n.
Bài 2: Viết chương trình tính tổng các số nguyên bất kỳ nhập từ bàn phím. Kết thúc nhập khi số đó bằng 0.
Bài 3: Viết chương trình tính tổng các chữ số của số nguyên n nhập từ bàn phím.
VD: n=1234, tổng các chữ số của n là 10.
giúp mình với nhé cảm ơn rất nhiều
1.Program tinhtong;
var: i,s:=longint;
Begin
i:=-1;
While i<n do
Begin
i:=i+2;
S:=S+i;
End;
readln;
End.
2.program bai_tap;
type mang = array[1..1000] of integer;
var a:mang;
i,j,n:integer;
begin
writeln(‘nhap n:’);
readln(n);
i:=1;j:=0;
while i <= n do
begin
write(‘nhap so thu ‘,i,’: ‘);
readln(a[i]);
if a[i] mod 2 = 0 then j:=j+a[i];
inc(i);
end;
write(j);
readln
end.
3.
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
while i<=n do
begin
inc(s,i);
inc(i);
end;
writeln(‘Tong: ‘,s);
readln;
end.
Câu 2:
uses crt;
var n,i,s:longint;
begin
clrscr;
i:=1;
repeat
write(‘Nhap so thu ‘,i,’: ‘); readln(n);
inc(s,n);
until n=0;
writeln(‘Tong: ‘,s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
while n<>0 do
begin
s:=s+(n mod 10);
n:=n div 10;
end;
writeln(‘Tong cac chu so cua n la: ‘,s);
readln;
end.