Tin học Viết chương trình

[Toji Takeshi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính tổng các số chia hết cho 3 trong khoảng từ 50 đến 620

 

[ka1412]

Của bạn đây
uses crt;
var i:integer;
s:longint;
begin
clrscr;
write('Tong cac so trong khoang tu 50 den 620 la:');
for i:=50 to 620 do
if i mod 3 =0 then s:=s+i;
write(s);
readln
end.

 

[DS Trang]

Viết chương trình tính tổng các số chia hết cho 3 trong khoảng từ 50 đến 620

Var a,b,n,i,tong: Integer;
Begin
a:= 60; b:= 250;
n:= (b-a) div 2; n:= n+1; tong:=0;
For i:= 1 to n do
Begin
If a mod 3= 0 then tong:=tong+a;
a:= a+1;
End;
Writeln( 'Tong la:',tong);
Readln;
End.

 

[ka1412]

Var a,b,n,i,tong: Integer;
Begin
a:= 60; b:= 250;
n:= (b-a) div 2; n:= n+1; tong:=0;
For i:= 1 to n do
Begin
If a mod 3= 0 then tong:=tong+a;
a:= a+1;
End;
Writeln( 'Tong la:',tong);
Readln;
End.

Không cần thế bạn ạ vì đây cho sẵn a và b rồi thôi còn cách của bạn có thể áp dụng vào các bài nhập a và b thì ok hơn

 

[Nguyễn Thánh Tiền]

Var a,b,n,i,tong: Integer;
Begin
a:= 60; b:= 250;
n:= (b-a) div 2; n:= n+1; tong:=0;
For i:= 1 to n do
Begin
If a mod 3= 0 then tong:=tong+a;
a:= a+1;
End;
Writeln( 'Tong la:',tong);
Readln;
End.

đọc đi đọc lại code này Anh thấy n=96 khi i=n thì a=156 thì sao có thể đung nhi

 

[ka1412]

Var a,b,n,i,tong: Integer;
Begin
a:= 60; b:= 250;
n:= (b-a) div 2; n:= n+1; tong:=0;
For i:= 1 to n do
Begin
If a mod 3= 0 then tong:=tong+a;
a:= a+1;
End;
Writeln( 'Tong la:',tong);
Readln;
End.

A của bạn bị sai. A phải bằng 50