Question

Bài 1: Viết chương trình nhập vào 2 số nguyên A và B, in ra hú tự từ bé đến lớn.

Bài 2: Viết chương trình tính tổng: 1+1/2+1/3+1/4....+1/9

Answer 1

Bài 1:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a<b then write(a,' ',b);

if b<a then write(b,' ',a);

if a=b then write('hai so bang nhau');

readln;

end.

Bài 2:

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 9 do

s:=s+1/i;

writeln('Ket qua la: ',s:4:2);

readln;

end.