Program Tong_cac_so_tu_nhien;
Uses CRT;
Var i,d: Byte;
Begin
d:=0;
For i = 10 to 99 Do d:=d+i;
Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);
End.
Program Tong_cac_so_tu_nhien;
Uses CRT;
Var i,d: Byte;
Begin
d:=0;
For i = 10 to 99 Do d:=d+i;
Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);
End.
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 35 đến 45.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 1 đến 20.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 15 đến 25.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 25 đến 35.
Thông báo kết quả ra màn hình?
Câu 1: Viết chương trình tính tổng các số tư nhiên trong phạm vi từ 10 đến 55. Thông báo kết quả ra màn hình?
viết chương trình tính tổng n số tự nhiên trong phạm vi từ 15-25, thông báo kết quả trên màn hình
viết chương trình tính tổng các số chẵn trong phạm vi từ 2 đến 50 thông báo kết quả ra màn hình bằng cách sử dụng vòng lặp while...do.
Viết chương trình nhập từ bàn phím số nguyên dương N,tính tổng các giá trị lẻ và chia hết cho 3 trong phạm vi từ 1 đến N.In kết quả ra màn hình (sử dụng cú pháp while...do)
viết chương trình nhập vào 1 mảng gồm n phần từ bàn phím . tính tổng các phần tử trong mảng .in kết quả ra màn hình.
-khai báo biến biến mảng .
-nhập n số phần tử mảng ,
-nhập mảng ,
-in mảng.
-tính tổng ,
-in kết quả ra màn hình