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.

uses crt;

const fi='songuyen.text';

var f1:text;

a,b:integer;

begin

clrscr;

readln(a,b);

assign(f1,fi);rewrite(f1);

writeln(f1,a,' ',b);

close(f1);

readln;

end.

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

write(t);

readln;

end.

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i*i;

write(t);

readln;

end.

9 tháng 2 2023

cảm ơn