Viết câu lệnh tính tổng số xu mà thỏ con tiết kiệm được đến ngày thứ 10 bằng câu lệnh lặp tính tổng S=1+2+3+…+10
Turbo pascal nha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Viết câu lệnh tính tổng số xu mà thỏ con tiết kiệm được đến ngày thứ 10 bằng câu lệnh lặp tính tổng S=1+2+3+…+10 Turbo pascal nha!!!!!!!!!!!!!!!!!!!
By Margaret
program im_14424;
uses crt;
var S: integer;
N: byte;
begin
clrscr;
writeln(‘Nhap vao gia tri cua S:’);
readln(S);
S:=S+1;
for N:=2 to 10 do S:=S+N;
writeln(‘Tong S= ‘, S:5:3);
readln
end.
program tinhtong;
uses crt;
var i,t:byte;
begin
clrscr;
t:=0;
for i:=1 to 10 do
t:=t+i;
write(‘So xu tiet kiem duoc la: ‘,t);
readln
end.