viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50 13/08/2021 Bởi Liliana viết chương trình tìm tổng số tự nhiên lẽ đầu tiên nhỏ nhất lớn hơn 50
uses crt;var s,i:integer;begin clrscr; i:=1; while s<=50 do begin s:=s+i; i:=i+2; end; write(‘S la: ‘,s); writeln; write(‘i la: ‘,i); readlnend. Bình luận
uses crt;
var s,i:integer;
begin
clrscr; i:=1;
while s<=50 do
begin
s:=s+i;
i:=i+2;
end;
write(‘S la: ‘,s);
writeln;
write(‘i la: ‘,i);
readln
end.