K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

8 tháng 4 2020

lặp vô hạn man

8 tháng 4 2020

vô hạn bạn ơi

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('Tong cua 50 so tu nhien la: ',s);

readln;

end.