Question

[Nguyến Ngọc Nguyên]

Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?

Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)

   A= 1.3 + 2.4 + 3.5 +...+ n(n+2).

Giúp mình với nhanh nhanh nha. 

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.