KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết chương trình tổng bậc ba của n số nguyên đầu tiên pascal
By Josephine
viết chương trình tổng bậc ba của n số nguyên đầu tiên pascal
program oken; uses crt; var n,s,i:longint; a: array [1..100] of integer; begin clrscr; write(‘nhap so phan tu cua mang: ‘); readln(n); for i:=1 to n do begin write(‘a[‘,i,’]: ‘); readln(a[i]); s:=s+a[i]; end; writeln(‘tong bac ba cua ‘,n,’ so nguyen: ‘,s*s*s); readln; end.
program oken;
uses crt;
var n,s,i:longint;
a: array [1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
s:=s+a[i];
end;
writeln(‘tong bac ba cua ‘,n,’ so nguyen: ‘,s*s*s);
readln;
end.