Hãy viết phương trình cho bài toán sau bằng ngôn ngữ pascal: tính tổng 10 số nguyên bất kì được nhập từ bàn phím

Question

ngocdiep · Answer

program BT;

uses crt;

var i,x,T: integer;

Begin

clrscr;

for i:=1 to 10 do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(x);

T:=T+x;

end;

write(‘Tong 10 so vua nhap = ‘,T);

readln

End.

quynhnhu · Answer

program tinh_tong;

uses crt;

var A:array[1..10] of integer;

i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

t:=t+A[i];

end;

write(‘Tong 10 phan tu la: ‘,t);

readln;

end.

0 bình luận về “Hãy viết phương trình cho bài toán sau bằng ngôn ngữ pascal: tính tổng 10 số nguyên bất kì được nhập từ bàn phím”