A

B

câu 1:

Var a, b: real;

Begin

Clrscr;

Write(‘nhap a=’), read(a);

Write(‘nhap b=’); read(b);

If a+b = 120 then a:=120-b;

Readln

End.

câu 2: 

s = 63

nếu đề có ghi chia hoặc dấu / thì nên khai báo kiểu số thực để hiện các số thập phân

uses crt;

var S:real;

i,n:integer;

begin

clrscr;

write('n = ');

readln(n);

for i:=37 to n do S:=S+1/(1+i);

write('S = ',S:8:2);

readln

end.