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.

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0)

{

s=1;

for (i=1; i<=n; i++)

if (i%2==0) s=s*i;

cout<<s;

}

else 

{

s=1;

for (i=1; i<=n; i++)

if (i%2==1) s=s*i;

cout<<s;

}

return 0;

}

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      tich := 1;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 3 = 0 then

            begin

                  tich := tich * a[i];

            end;

      end;

      writeln('Tich cac phan tu chia het cho 3 la: ', tich);

      readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('So phan tu chan trong day la: ', dem);

      readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

      n, i: integer;

      a: array[1..100] of integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] <= 20 then

            begin

                  writeln(a[i]);

            end;

      end;

      readln;

end.

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

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

t:=1;

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

write(n,'! = ',t);

readln

end.

Câu 2:

Program HOC24;

var i,n: integer;

S: real;

begin

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

S:=0;

for i:=1 to n do S:=S+1/i;

write('S = ',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

{

if (i%2!=0) s=s+i*i;

else s=s-i;

}

cout<<s;

return 0;

}

CÂU 1:

program hinhchunhat;

var a,b,S,C: real;

begin

Write('Nhapdodaicanhthuchata=');readln(a);

Write('Nhapdodaicanhthuhaib=');readln(b);

S:= a*b;

C:=(a+b)*2;

Writeln('Dientichhinhchunhatla:',S);

Writeln('Chuvihinhchunhatla:',C);

readln

end.

CHÚC BẠN HỌC TỐT!

CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Chuvihinhtronla:',2*pi*r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

CHÚC BẠN HỌC TỐT (x2)

B1:Biết chiều dài và chiều rộng của hình chữ nhật.

B2:Lấy chiều dài nhân rộng.

B3:Viết đáp số.

B4:Viết chương trình và kết thúc thuật toán.