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 Ạ
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.
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.
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.