Viết chương trình fascal tính 1+2+3+4+...+n
Viết chương trình fascal tính:
a. 1+2+3+4+...+n
Trả lời (2)
-
uses crt;
Var
i,n:integer; a:real;
begin
clrscr
Write('Nhap n:');
Readln(n);
a:=0;
For i:=1 to n do
a:=a+i
Writeln('a=',a:3:1);
Readln;
End.
bởi _ᵛᶰシӀỡ︵²⁰⁰⁵ժմվêղ ⁀ᶦᵈᵒᶫ_07/03/2019
Like (0) Báo cáo sai phạm -
Program tinh_tong;
Uses crt;
Var s:longint;
n,i:integer;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
for i:=1 to n do s:=s+i;
write('tong tren co ket qua la: 's);
readln;
End.bởi Thánh Bảo19/03/2019
Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng
Các câu hỏi có liên quan
-
Những lợi ích của việc sử dụng máy vi tính hoặc điện thoại di động cho các hoạt động giải trí là gì? Tác hại mà nó mang lại cho chúng ta là gì
29/08/2020 | 1 Trả lời
-
mn giúp e câu này đc ko ạ ?
vận dụng vòng lặp for, While
-Chương trình in ra bảng cửu chương n
-Tính tổng tích của n số tự nhiên đầu tiên
-Tìm Ư (a), B(a)
26/06/2020 | 1 Trả lời
-
Cho trước 2 dãy số nguyên. Hãy tìm các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2.
Dữ liệu nhập: Cho trong file DAYSO.INP gồm 4 dòng:
-Dòng đầu chứa số nguyên dương M(1<=M<=100)
-Dòng thứ 2 chứa M số nguyên của dãy thứ nhất
-Dòng thứ 3 chứa số nguyên dương N(1<=N<=100)
-Dòng thứ 4 chứa N số nguyên của dãy thứ 2
Dữ liệu ra: Cho trong file DAYSO.OUT chứa các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2 hoặc thông báo "NO SOLUTION" nếu không tìm thấy.
Giúp mình nha sắp đi thi rồi :))
Cảm ơn ạ!!!
19/06/2020 | 0 Trả lời
-
Viết chương trình sử dụng biến mảng nhập 20 số nguyên từ bàn phím và in ra màn hình số lớn nhất trong các số đó
18/06/2020 | 0 Trả lời
-
Trắc nghiêm
18/06/2020 | 1 Trả lời
-
Viết chương trình nhập vào mảng a gồm n phần tử. In ra màn hình các phần tử là số lẻ.
18/06/2020 | 1 Trả lời
-
Làm hộ
18/06/2020 | 0 Trả lời
-
13/06/2020 | 0 Trả lời
-
Sử dụng biến mảng viết chương trình nhập vào n số nguyên tử bạn phím . Sau đó đếm xem trong đó có bao nhiêu phần tử dương
Giúp mik với ạ
10/06/2020 | 0 Trả lời
-
Tìm phát biểu đúng
09/06/2020 | 0 Trả lời
-
Viết chương trình nhập vào n số nguyên và n các số nguyên đó được nhận từ bàn phím đến xem trong n số đó được nhập vào có bao nhiêu số âm
02/06/2020 | 0 Trả lời
-
B2 : Nếu S <= 5,2 thì chuyển qua B4
B3 : S <- S - x ; và quay lại B2
27/05/2020 | 0 Trả lời
-
25/05/2020 | 0 Trả lời
-
23/05/2020 | 0 Trả lời
-
23/05/2020 | 0 Trả lời
-
A. Khi giá trị cuối lớn hơn giá trị đầu
B. Khi giá trị đầu lớn hơn giá trị cuối
C. Khi giá trị đầu bằng giá trị cuối
19/05/2020 | 0 Trả lời

XEM NHANH CHƯƠNG TRÌNH LỚP 8