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