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.

7 tháng 2 2023

 

6 tháng 2 2023

Uses crt;

var i,n: integer;   a: longint;

begin clrscr;

write('Nhap so n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+i;

writeln(' Tong: ',a);

readln;

end. 

 

7 tháng 2 2023

Program HOC24;

var i,j: byte;

begin

for i:=1 to 3 do

begin

for j:=1 to 7 do write('*');

writeln;

end;

readln

end.