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.

30 tháng 12 2019

program ho_tro;

uses crt;

var n,i: integer;

s: longint;

begin

clrscr;

writeln(' nhap so n'); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(' tong cua' , n, ' so tu nhien dau tien =' , s);

readln

end.

30 tháng 12 2019

mk bấm nhằm, sửa lại dùm mk là tin học 11 nhé!