Bài 1:

Program baitap;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap vao 2 so bat ki:'); Readln(a,b);

Writeln('Tong:',a+b);

Writeln('Hieu:',a-b);

Writeln('Tich:',a*b);

Writeln('Thuong:',a/b);

Readln

End.

Bài 2:

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap vao 2 so bat ki:'); Readln(a,b);

If a mod 2=0 then writeln(a,' la so chan')

                      Else writeln(a,' la so le');

If b mod 2=0 then writeln(b,' la so chan')

                      Else writeln(b,' la so le');

If a>b then writeln(a,' la so lon;',b,' la so be')

           Else If a<b then writeln(b,' la so lon;',a,' la so be')

                             Else write('hai so do bang nhau');

Readln

End.

Câu 1:

#include <stdio.h>

#include <conio.h>

#include <math.h>

#define PI 3.14159

int main() {

            int r;

            float chuvi, dientich;

            printf("Nhap ban kinh r:");

            scanf("%d", &r);

            chuvi = 2*PI*r;

            dientich = PI*r*r;

            printf("Chu vi hinh tron la: %f\n", chuvi);

            printf("Dien tich hinh tron la: %f", dientich);

            getch();

}

Câu 2: 

uses crt,math;
var a,b:longint;
begin
clrscr;
readln(a,b);
if (a mod 2 = 0) then writeln(a,' la so chan')else writeln(a,' la so le');
if (b mod 2 = 0) then writeln(b,' la so chan')else writeln(b,' la so le');
writeln('min = ',min(a,b));
writeln('max = ',max(a,b));
readln;
end.