Question

Mọi người ơi giúp em bài này với

Viết chương trình pascal

Hãy tính tổng sau :

1. S = 2+4+6+...+100

2.S = 1/2 + 1/4 + ... + 1/100

3. Hãy tính tích sau : T = 1.3.5. ... .99

4. Nhập vào 5 số từ bàn phím hãy tính tổng của những số chia hết cho 3

Em cảm ơn nhiều lắm ạ :(((((

Answer 1

1.

uses crt;

var i,t:longint;

begin

clrscr;

t:=0;

for i:=2 to 100 do

if i mod 2=0 then t:=t+i;

write('Tong S= ',t);

readln

end.

Answer 2

2.

uses crt;

var i,t:longint;

begin

clrscr;

t:=0;

for i:=2 to 100 do

if i mod 2=0 then t:=t+1/i;

write('Tong S= ',t);

readln

end.

Answer 3

câu 2 sai đoạn này rồi,code đúng đây nhé

2.

uses crt;

var i:longint; t:real;

begin

clrscr;

t:=0;

for i:=2 to 100 do

if i mod 2=0 then t:=t+1/i;

write('Tong S= ',t);

readln

end.

Answer 4

3.

uses crt;

var i,t:longint;

begin

clrscr;

t:=1;

for i:=1 to 99 do

if i mod 2<>0 then t:=t*i;

write('Tich S= ',t);

readln

end.

Answer 5

4.

uses crt;

var i:longint; t:longint;

A:array[1..6] of longint;

begin

clrscr;

t:=0;

for i:=1 to 5 do

begin

write('Nhap phan tu thu ',i,' :'); readln(A[i]);

if A[i] mod 3=0 then t:=t+A[i];

end;

write('Tong S= ',t);

readln

end.