Program BTT; Uses crt; Var a,b,t: longint; Begin Clrscr; Write('Nhap a: '); Readln(a); Write('Nhap b: '); Readln(b); If (a mod 2 = 0) and (b mod 2 = 0) then Write('Tong la: ',a+b); If (a mod 2 = 1) and (b mod 2 = 1) then Write('Tich la: ',a*b); Readln End.
program chuong trinh tinh tong 3 so a b c; var s,a,b:real; uses crt; begin clrscr; writeln('nhap so thu nhat a:');readln(a); writeln('nhap so thu 2 b:');readln(b); s:=a+b; writeln('tong 2 so a+ b la:',s:0:1); readln; end.
