Câu 7:

const fi='dayso.inp';

fo='dayso.out';

var f1,f2:text;

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

i,n,dem,j,t,kt,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,'Tong cua day so la: ',t);

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

  if a[i]=b[j] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to n do 

  if b[i]=a[j] then inc(dem1);

writeln(f2,b[i],' xuat hien ',dem1,' lan');

close(f1);

close(f2);

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%3==0) s=s+i;

cout<<s;

return 0;

}

uses crt;

var n,i,s,kt,j,t:longint;

begin

clrscr;

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

s:=1;

for i:=1 to n do

  s:=s*i;

t:=0;

for i:=2 to s do 

  if s mod i=0 then

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln('Tong cac uoc nguyen to cua n,'! la: ',t);

readln;

end.

ta dinh nghia nhu sau

n!=n*(n-1)*(n-2)*...*1;

vs 4!=1*2*3*4;

vi the ban chi can tinh tong cac so nguyen to tu 1 den n thoi

ko can tinh n! lam j cho mat tg ,do phuc  tap la O(n) nhe

uses crt;

var n,i,m,max:integer;

function kt(n:integer):integer;

var j,k:integer

begin

k:=0;

for j:=2 to n do

if (n mod j)=0 then k:=k+1;

kt:=k+1;

end;

begin

readln(n);

if n=1 then write(1)

else

begin

max:=kt(2);

for m:=3 to n do

if max<kt(m) then max:=kt(m);

write(max);

end;

end.

a

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n-1 do

If (i mod 2 = 0) and (i mod 3 = 0) then

s:=s + i;

Write('Tong la ',s);

Readln;

End.

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

edn;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.