Giúp em vs viết chương trình nhập số tự nhiên n (n<1000) và tính giá trị biểu thức Sn
2 câu trả lời
uses crt;
var a:array[1..100]of real;
n,i:longint;
s:real;
begin
clrscr;
write('n=');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('a[',i:1,']=');
readln(a[i]);
s:=s+a[i];
end;
until
i>=n;
writeln('tong',s:3:2);
readln
end.
uses crt;
var a:array[1..100]of real;
n,i:longint;
s:real;
begin
clrscr;
write('n=');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('ptu thu',i:1,'=');
readln(a[i]);
s:=s+a[i];
end;
until
i>=n;
writeln('tong',s:3:2);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
