Viết chương trình Pascal tính tổng S = 11+12+....+50 và đưa ra màn hình giá trị cho S
2 câu trả lời
uses crt;
var i,s: word;
begin
clrscr;
for i:=11 to 50 do s:=s+i;
writeln ('tong s=11+12+...+50= ',s);
readln;
end.
xin hay nhất ạ !!!
uses crt;
var s, i : integer;
begin
s:=0;
for i:=11 to 50 do s:=s+i;
write (' S=',s);
end.
