Bài 1:viết chương trình P=1^2*2^2*3^2*4^2
Bài 2: viết chương trình tổng S=1/1^2+1/2^2+1/3^2
Làm theo kiểu câu lện với số lần biết trước nhá
À ^ cái này gọi là mũ
* Là nhân nhé mìn kí hiệu đấy
Bài 1:viết chương trình P=1^2*2^2*3^2*4^2
Bài 2: viết chương trình tổng S=1/1^2+1/2^2+1/3^2
Làm theo kiểu câu lện với số lần biết trước nhá
À ^ cái này gọi là mũ
* Là nhân nhé mìn kí hiệu đấy
Bài 1:
program bai1;
uses crt;
var t,i:byte;
begin
clrscr;
t:=0;
for i:=1 to 4 do
t:=t+i*i;
write(‘Tong la: ‘,t);
readln
end.
Bài 2:
program bai2;
uses crt;
var t:real;
i:byte;
begin
clrscr;
t:=0;
for i:=1 to 3 do
t:=t+1/(i*i);
write(‘Tong la: ‘,t);
readln
end.