Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

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

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

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

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Scratch hay java

uses crt;

var a,b,c,nn:integer;

//chuongtrinhcon

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

begin

if x<y then min:=x

else min:=y;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b,c);

nn=min(a,b);

nn=min(nn,c);

writeln(nn);

readln;

end.

Tìm số lớn nhất

= MAX ( a,b,c)

Tìm số nhỏ nhất

= MIN ( a,b,c)

Python:

a=int(input('a= '))

b=int(input('b= '))

if a<b:

        print('a la so be nhat')

        if a>b:

                 print('b la so be nhat')

        else:

                  print('a=b')

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a<b) then write(a)

else write(b);

readln;

end.

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

Min=a[0]

If min>a[i]:min=a[i]

Print(‘gia tri nho nhat’,min)

Bài 1: 

function min(a,b:longint):longint;

begin

min:=a;

if min>b then min:=b;

end;

Bài 2: 

function canhhuyen(a,b:real):real;

var c:real;

begin

c:=sqrt(sqr(a)+sqr(b));

canhhuyen:=c;

end;

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

       i,n,x : byte;

      min:integer;

begin 

 write('Dãy có số phần tử là : '); readln(N);

for i:=1 to n do begin

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

                        readln(A[i]);

                        end;

Min : = A[1];

for i:=2 to n do if A[i] < min then begin

                                                    min:= A[i];

                                                    x:=i;

                                                    end;

write('Phần tử bé nhất trong dãy là : A[',x,']');

readln

end.

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln('So lon nhat trong hai so la: ',a);

if b>a then writeln('So lon nhat trong hai so la: ',b);

if a=b then writeln('Hai so bang nhau');

readln;

end.

 Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.

Mình sử dụng ngôn ngữ c++:

#include <bits/stdc++.h>

using namespace std;
long long a[5];
int main()
{
    for(int i=1;i<=4;i++){
        cin>>a[i];
    }
    sort(a+1,a+5);
    cout<<a[1];
    return 0;
}