Var a,b,s,p:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

Câu 3: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>0) t=t+x;

}

cout<<t;

return 0;

}

a) 5 vòng lặp

giá trị T và i :

Bước 1: i:=0, T:=105

Bước 2: 105 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=5, T:=105-5=100

Bước 2: 100 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=10, T:=100-10=90

Bước 2: 90 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=15, T:=90-15=75

Bước 2: 75 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=20, T:=75-20=55

Bước 2: 55 >= 20, tiếp tục với bước 3

Bước 3: i:=i+5=25, T:=55-25=30

Bước 2: 30 < 20, chuyển sang bước 4

Bước 4: in ra kết quả T=30 và i=25

=>sau khi thực hiện thuật  giá trị T và i lần lượt là 30 và 25.

b)

program BaiTinHoc;

var
  i, T: integer;

begin
  i := 0;
  T := 105;
  
  repeat
    if T < 20 then
      break;
    i := i + 5;
    T := T - i;
  until false;
  
  writeln('T = ', T);
  writeln('i = ', i);
end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

Đáp án C

#include <bits/stdc++.h>

using namespace std;

long long x,n,max,i;

int main()

{

cin>>n;

cin>>x;

max=x;

for (i=1; i<n; i++)

{

cin>>x;

if (max<=x) max=x;

}

cout<<max;

return 0;

}

2: #include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (a>b) cout<<"a lon hon b";

else if (a<b) cout<<"a nho hon b";

else cout<<"a bang b";

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

cout<<a*a;

return 0;

}