Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln((a+b+c)/3);

readln;

end.

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

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

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Đây là một chương trình Python để tính trung bình cộng của 4 số bất kỳ:

```python

a = float(input("Nhập số thứ nhất: "))

b = float(input("Nhập số thứ hai: "))

c = float(input("Nhập số thứ ba: "))

d = float(input("Nhập số thứ tư: "))

tbc = (a + b + c + d) / 4

print("Trung bình cộng của 4 số là:", tbc)

```

Chương trình này sẽ yêu cầu người dùng nhập vào 4 số bất kỳ, sau đó tính trung bình cộng của chúng và in kết quả ra ngoài màn hình.

Var a:array:[1..1000] of integer;

i,n,max,t,d:integer;

s:longint;

tb:real;

Begin

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

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

writeln('Trung binh cong cua day la ',tb:10:2);

Write('Cac so la boi cua 3 la ');

For i:=1 to n do

if a[i] mod 3 = 0 then write(a[i]:8);

writeln;

write('Cac so le la boi cua 5 la ');

for i:=1 to n do

if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then

write(a[i]:8);

Writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

begin

max:=a[i];

d:=i;

End;

Writeln('So lon nhat la ',max);

t:=a[1];

a[1]:=max;

a[d]:=t;

Write('Day sau khi dem so lon nhat ra truoc ');

For i:=1 to n do

write(a[i]:8)

writeln;

tb:=(a[8] + a[10])/2);

Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d;

int main()

{

cin>>a>>b>>c>>d;

cout<<a*b*c*d<<endl;

cout<<a*a+b*b+c*c<<endl;

cout<<c-d;

return 0;

}

Lời giải :

Câu 1 :

program hotrotinhoc;

var A : array[1..32000] of integer;

i,n,dem : integer;

begin

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

for i:= 1 to n do

begin

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

end;

dem:=0;

for i:= 1 to n do

if a[i]>0 then dem:=dem+1;

write(dem);

readln

end.

Câu 2:

program hotrotinhoc;

var a,b,tb : integer;

begin

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

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

tb:=(a+b)/2;

write(tb);

readln

end.