Viết chương trình tính tổng sau: S= 50+52+54+.....+400 Giúp mình với mọi người ơi, ai chắc chắn đúng hãy giúp ạ, bài ktra 15 phút Tin của mình đó ạ:<<.
2 câu trả lời
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>50) and (i<=400) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
program oken;
uses crt;
var i,s:longint;
begin
i:=50; s:=0;
while i<=400 do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong S=',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm