Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
By Piper
By Piper
Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
*10 số liên tiếp:
uses crt;
var i,s:longint;
begin
clrscr;
for i:=1 to 10 do inc(s,i);
writeln(s);
readln;
end.
*10 số nhập từ bàn phím:
uses crt;
var a:array[1..1000000] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
inc(s,a[i]);
end;
writeln(‘Tong: ‘,s);
readln;
end.
program bt;
uses crt;
var T,i:byte;
a:array[1..10] of byte;
begin
clrscr;
T:=0;
for i:=1 to n do
begin
readln(a[i]);
T:=T+a[i];
end;
writeln(T);
readln;
end.
học tốt
^.^