Câu 1: C

Câu 2: D

Câu 3: B

Câu 4; B

Câu 5: D

Câu 6: C

Câu 7: A

Câu 8: A

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a*a+a+b);

readln;

end.

program lcmmmmmm;

var

a,b,c,s:integer; // có thể thay integer bằng longint

begin

assign(input,'bai1.inp');reset(input);

assign(output,'bai1.out');rewrite(output);

readln(a,b,c);

s:=0;

s:=(a*a+(a+b));

write(s);

end.

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

readln;

end.

n = int(input("Nhập vào số n: "))

if n <= 0:
    print("n phải lớn hơn 0")
else:
    for i in range(1, n+1):
        print(i)

?

làm đi >:)

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

uses crt;

var s,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

 begin

if i mod 2=1 then s:=s+i

else s:=s-i;

end;

writeln(s);

readln;

end.

thanks

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=1;

for (i=1; i<=50; i++) t=t*i;

cout<<t;

return 0;

}

CT này ko chạy đc nha bạn vì lũy thừa đến 21 (trong C++) đã ko tính đc r (bằng kiểu số nguyên)

uses crt;

var s,a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*b:4:2);

readln;

end.

a có kiểu dữ liệu số thực