Question

câu 1 viết chương trình tính tổng từ 1 đến 50

câu 2 Nhập vào 1 số nguyên N. Viết chương trình In ra tổng các số từ 1/1*2 + 1/ 2*3+ ...1/n*(n+1)

câu 3 Nhập vào 1 số nguyên N<20. Viết chương trình in ra tích các số chẵn từ 1 đến N.

help me

Answer 1

program Tinh_tong;

uses crt;

var S,i:integer;

begin

S:=0;

for i:=1 to 50 do S:=S+i;

writeln('Tong tu 1 den 50 la:',S);

readln

end.

Answer 2

Cau 2:

program Tinh_tong_2;

uses crt;

var S,i,n: integer;

begin

writeln('Nhap n:');

readln(n);S:=0;

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

writeln('Tong la:',S);

readln

end.

Answer 3

Cau 3

program Tim_tich;

uses crt;

var a:array[1..50] of integer;

i.n.S: integer;

begin

writeln('Nhap vao sp phan tu:');

readln(n); S:=1;

for i:=1 to n do

begin

writeln('a[',i,']=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=0 then S:=S*a[i];

writeln('Tich la:',S);

readln

end.