1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

Nhập n xong rồi làm gì nữa bạn?

Tham khảo

thiếu đề?

hình như thiếu đề r .-.

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Program HOC24;

var i,n: integer;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

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

write('Cac uoc nguyen to cua ',n,' la: ');

for i:=1 to n do if (n mod i=0) and nt(i) then write(i,' ');

readln

end.

program Tim_Uoc;

uses crt;

var

     n, i: integer;

begin

     clrscr;

     write('Nhap vao mot so nguyen duong n: ');

     readln(n);

     writeln('Cac uoc cua so ', n, ' la: ');

     for i:=1 to n do

     begin

          if n mod i = 0 then

               writeln(i);

     end;

     readln;

end.

Em Cảm ơn Chị