1:

uses crt;

const fi='ketqua.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

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

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

# Nhập số nguyên dương N từ bàn phím

N = int(input("Nhập số nguyên dương N: "))

# Khởi tạo dãy số nguyên

numbers = []

# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers

for i in range(N):

     number = int(input("Nhập số thứ {}:".format(i+1)))

     numbers.append(number)

# In ra dãy số đã nhập

print("Dãy số bạn đã nhập là: ", end="")

for number in numbers:

     print(number, end=" ")

print()

# Tính tổng các số chia hết cho 3 và in ra màn hình

total = 0

for number in numbers:

     if number % 3 == 0:

          total += number

print("Tổng các số trong dãy chia hết cho 3 là: ", total)

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a div b);

writeln(a mod b);

readln;

end.

Đề thiếu rồi bạn

var a,s:real;

begin

write('a = ');readln(a);

s:=a*a*a+15;

write('Ket qua la ',s:10:2);

readln

end.

#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;

}

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.