Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

Câu 1 .C

Câu 2 .C

Câu 3 . C

Câu 4 . D

Câu 5 . A

Câu 6 . B

Câu 7 . D

Câu 8 . A

Câu 9.  A

Câu 10 . C

A. Chương trình dịch 

A

Câu a nha

a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
    print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
    print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
    print(a,b,c,"la ba canh cua tam giac")
else:
    print(a,b,c,"khong la ba canh cua tam giac")

C1:

khai báo:

      program  hieu_a_va_b   ("tự đặt tên cái này ko cần thiết)

      uses crt;

      var a, b : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

             writeln ("hieu cua hai so la: a - b=" , a - b);

        end.

C2:

khai báo:

      program    tinh_ba_so

      uses crt;

      var a, b, c : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

            writeln ("nhap so c");  read(c);

             writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);

        end.

C3:

khai báo:

      program    tinh_ba_so

      uses crt;

      var x, y, z : integer

phần thân:

       begin

            writeln ("nhap so x");  read(x);

            writeln ("nhap so y");  read(y);

            writeln ("nhap so z");  read(z);

             writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);

        end.

nhớ chạy thử chương trình nha. xem có lỗi ko.

(nhớ tick cho mk nha)

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

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;

return 0;

}

uses crt;

var t,s:real;

begin

clrscr;

readln(t,s);

writeln('a=',(t+s)/2);

writeln('b=',(t-s)/2);

readln;

end.

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

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

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

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

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

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

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

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.