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
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
By Valentina
By Valentina
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
uses crt;
var s, i : integer;
begin
s:=0;
for i:=11 to 50 do s:=s+i;
write (‘ S=’,s);
end.
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 ạ !!!