program oken;
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap so thu 1: '); readln(a);
write('nhap so thu 2: '); readln(b);
writeln('tong 2 so: ',a+b);
writeln('hieu 2 so: ',a-b);
writeln('tich 2 so: ',a*b);
writeln('thuong 2 so: ',a/b:0:3);
if a>b then writeln('so ',a,' lon hon so ',b) else writeln('so ',a,' be hon so ',b);
if (a mod 2=0) and(b mod 2=0) then writeln('hai so deu la so chan')
else if (a mod 2=0) then writeln ('so ',a,'la so chan')
else if b mod 2=0 then writeln('so ',b,' la so chan')
else writeln('khong co so nao chan');
readln;
end.
-cái này ghi ra vở được nha bạn
Cho mình xin câu trả lời hay nhất nha :D