Question

PASCAL

Bài 1: Cho số có 2 chữ số, in ra tổng của 2 chữ số đó, ví dụ: Nhập 79 in ra tổng của 2 chữ số là:  7+9=16

Bài 2: Nhập thông tin cá nhân của một người gồm có: Ho_ten, Nam_sinh, Gioi_tinh. Hãy in ra các thông tin trên và cho biết người đó hiện nay bao nhiêu tuổi , cho biết: Tuổi=2021-Nam_sinh. 

Bài 3: Cho số có 4 chữ số, in ra số đảo của số đó, ví dụ: nhập 2357, in ra 7532 

GIÚP MÌNH GẤP VỚI Ạ

Answer 1

Bài 1:

Program HOC24;

var x,t: byte;

begin

write('Nhap so co 2 chu so: '); readln(x);

t:=(x mod 10)+(x div 10);

write('Tong 2 chu so cua so do la: ',t);

readln

end.

Answer 2

Bài 2: 

Program HOC24;

var ho_ten,gioi_tinh: string;

nam_sinh: integer;

begin

write('Ho va ten: '); readln(ho_ten);

write('Nam sinh: '); readln(nam_sinh);

write('Gioi_tinh: '); readln(gioi_tinh);

write('Nguoi do nam nay ',2021-nam_sinh,' tuoi');

readln

end.

Answer 3

Bài 3:

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap so co 4 chu so '); readln(s);

for i:=length(s) downto 1 do write(s[i]);

readln

end.