program tinhtong;
uses crt;
var S1 , n :integer;
Begin
clrscr;
writeln(' Nhap so n:'); readln(n);
S1:=0;
n:=1;
While n>=0 do
S1:=S1+n;
n:=n+1;
if (n mod 3 =0) then S1:=S1-(n+1);
end;
writeln(' Tong can tim la S1:'); readln(S1);
readln;
end.
Ban tham khao nha!!
Bài 1: mình làm theo free pascal nhé
Uses crt;
Var i,n,tong:integer;
CLRSCR;
Writeln('Moi nhap n de tinh tong') Readln(n);
For i:=1 to n do
tong:=tong+i;
Writeln('Tong cua day tren la',tong);
Readln;
End.
Giúp em với ạ Xong em vote 5 sao Cảm ơn nhiều ạ Giúp em với
So sánh sự giống nhau và khác nhau của cuộc đấu tranh thống nhất nước Đức và cuộc đấu tranh thống nhất I-ta-li-a Cần gấp ạ!!!
giup minh bai 1 2 voi kho qua hua cho 5sao
Sau khi lập kế hoạch ta cần chú ý những trách nhiệm gì
giup minh bai 1 bai 2 voi kho qua hua vote 5sao
Lm giúp mk vs ạ lm xong nhớ giải thích đó ạ có CTLHN+5*
Viết đoạn văn 10-12 câu nếu cảm nhận của em về vẻ đẹp của ca Huế qua văn bản Ca Huế trên sông Hương trong đó có sử dụng 1 từ láy giúp vs ạh
Hòa tan hoàn toàn 23,3g K2O vào nước thành 500ml dung dịch a) Tính nồng độ mol/ dung dịch thu được. b) Tính thể tích dung dịch H2SO4 20% ( D = 1,14g/ml) cần để trung hòa dung dịch
Sau khi lập kế hoạch em phải thực hiện những nhiệm vụ , trách nghiệm gì
Làm giúp e với ạ e đang cần gấp lắm
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến