Bài 7. Câu lênh lặp

NN

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. 

NT
22 tháng 2 2021 lúc 14:56

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.

Bình luận (0)

Các câu hỏi tương tự
LD
Xem chi tiết
TU
Xem chi tiết
PK
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
HM
Xem chi tiết
H24
Xem chi tiết