Var i, S: interger;
Begin:
For i:=1 to N do if i mod 2=0 then S:=S+i;
Writeln('tong cac so chan :', S');
Readln;
End.
program tinhtong;
uses crt;
var n,i:integer;
t:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write('Tong cac so le tu 1 den ',n,' la: ',t);
readln
end.
Giúp em mới ạ 🥺🥺🥺🥺🥺🥺🥺🥺🥺🥺
Sự tạo thành nước tiểu ở các đơn vị chức năng của thân diễn ra liên tục, nhưng sự bài tiết nước tiểu ra khỏi cơ thể chỉ xảy ra vào những lúc nhất định. Có sự khác nhau đó là do đâu?
giúp em câu hình này với ạ😿😿😿
bài số 2 giúp em nha tks mn nhiều :33
làm hộ mình cần gấp, làm hết mình cho 5 sao
Giải phương trình sau: 4x + 3 (x - 1) + 2 (x - 2) = 1
M.n ơi Giúp mình với Giải hộ mik bài 4
Một thang máy có khối lượng 1 tấn có thể chịu tối đa 800 kg khi chuyển động thang máy còn chịu lực cản không đổi 4.10^-3 N để đưa thang máy lên cao với v=3m/s thì công suốt động cơ bằng bao nhiêu cho g=9.8m/s^2
Help my Toán tìm x phân số nhé
Lập dàn ý: hãy cảm ơn ngọn đèn vì ánh sáng của nó nhưng chớ quên người cầm đèn đang kiên nhẫn đứng trong đêm
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
