Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
hoặc:
Tính tổng:
program tinhtongnso;
uses crt;
var s,i,n:integer;
begin
clrscr;
writeln('Nhap so n');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('Tong la:',s);
readln
end.
Chúc bạn học tốt!Nếu được cho mình xin CTLHN nhé!
Program tinh_tong;
Var i,n,S:integer;
Writeln('Nhap n: ');Readln(n);
For i:=1 to n do S:=S+i;
Writeln('Tong la: ',S);
Readln;
End.
(Đã làm trên pascal rồi nha, yên tâm), chúc bạn học tốt nek, mik đi chuyên Tin nên cái này đúng 100% nha =)))
Bài 1 : Xác định hệ số a để`\text{f (x) =}``\text{ax² + 5x - 2}` có nghiệm là : `\text{a) x = 1}` b) `\text{x = 2}`
Làm giúp e câu này đi ạ em cảm ơn
Cho tam giác ABC nt (O) vs AB đ kính (AC<BC). E thuộc BC, EH vuông góc AB tại H. AE, CH cắt (O) tại D và F. FI và FK vuông góc với CA CB. CM: AB, DF, IK đồng tâm.
giúp mik nha mn mai mik thi rùi :((
Cho hai đa thức A(x) = x³-3x²+5x+3 B(x) = -x³+4x²+x⁴-5x+3 a, Tính M(x) = A(x) + B(x) và N(x) = A(x) - B(x) b, Tính M(1). Giá trí x = 1 có phải là nghiệm của M(x) không? Vì sao? c, Tìm nghiệm của M(x)
viết bài văn nêu cảm nhận của em về vẻ đẹp của Cô Tô sau trận bão\
Vẽ cả bảng ra nhá vì mình k hiểu rõ lắm
Trong mặt phẳng Oxy cho 2 điểm M(2;5) và N(5;1).Tìm phương trình đường thẳng đi qua M và cách N một đoạn có độ dài bằng 3
Cho hai điểm A(4; 1), B(-2; 3). Viết phương trình đưong thắng qua A và cách B một khoảng bằng 6. ai đó giúp mình câu này vs
Hai cây tre bị gãy, điểm gãy cách gốc theo thứ tự là 2 thước và 3 thước. Ngọn cây nọ chạm gốc cây kia. Tính khoảng cách từ chỗ 2 thân cây chạm nhau đến mặt đất. ( Bài toán cổ Việt Nam)
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
