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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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. 

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Thư Uyên
Xem chi tiết
Phan Thị Ka
Xem chi tiết
trinhtrannamhoa
Xem chi tiết
DinoDrang
Xem chi tiết
MinTae
Xem chi tiết
Maiiii
Xem chi tiết
Hương Mai
Xem chi tiết
Nguyenthanh
Xem chi tiết