55
37
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1254
1145
var kq: integer;
begin
write('Tong day so cach deu 4 + 7 + 10 + ... + 151 la: ', (4+151)*(((151-4) div 3 +1) div 2));
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Program BTT;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
i:=4;
s:=0;
While i<151 do
Begin
s:=s+i;
i:=i+3;
End;
Write('S = ',s);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
55
37
bạn ơi cho mình hỏi sao chương trình không chạy được vậy
Mình chạy đc mà nhỉ?
55
37
bạn cho mình hỏi thuật toán với
i<-4 s<-0 Khi nào i<151 thì s<-s+i; i<-i+3 Xuất s
Bảng tin