var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do s:=s+1/(i*i);

write('Tong la ',s:10:2);

readln;

end.

var i,n,dem:integer;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

begin

if n mod i = 0 then dem:=dem+1;

end;

if dem = 2 then write(n,' la so nguyen to')

else write(n,' khong la so nguyen to');

readln;

end.

var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

s:=1;

if n mod 2 = 0 then

begin

for i:=2 to n do

begin

s:=s*i;

i:=i+2;

end;

end

else

begin

for i:=1 to n do

begin

s:=s*i;

i:=i+2;

end;

write('Tong la ',s:10:2);

readln;

end.

var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

s:=s+1/(3*i+2);

write('Tong la ',s:10:2);

readln;

end.

S = a \(\times\) h : 2

Thay m = 432 vào biểu thức 876 - m, ta có:

876 - m = 876 - 432 = 444

Vậy giá trị của biểu thức 876 - m tại m = 432 là 444

Chu vi một mặt đáy của hình hộp chữ nhật:

P = (a + b) \(\times\) 2

Var a:array[1..200] of integer;

i,n,max,s1,dem,s2:integer;

begin

write('Nhap so luong phan tu cua mang n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if a[i] mod 2 = 0 then s1:=s1+a[i];

end;

for i:=1 to n do

begin

if a[i] < 0 then dem:=dem + 1;

end;

s2:=1;

for i:=1 to n do

begin

if (a[i] > 0) and (a[i] mod 3 = 0) then s2:=s2*a[i];

end;

writeln('gia tri lon nhat trong mang la ',max);

writeln('tong cac so chan la ',s1);

writeln('Co ',dem,' so am');

write('tich cac so duong va chia het cho 3 la ',s2);

end;

readln;

end.

Số tuổi tăng thêm của cả hai mẹ con: 50 - 24 = 26 (tuổi)

Số tuổi của mẹ: 24 + 26 : 2 = 37 (tuổi)

Số tuổi của con: 26 : 2 = 13 (tuổi)

Phân số tối giản là phân số không thể rút gọn được nữa. Hay có thể hiểu ước chung lớn nhất của tử số và mẫu số là 1.