Viết cấu trúc nhập từ bàn phím 2 số nguyên đưa ra màn hình kết quả tổng của chúng Nếu cả hai số đều là số chẵn trong trường hợp còn lại thì đưa ra kết quả tích của chúng

Program Bailam;

Uses crt;

Var x,y: integer;

Begin

Clrscr;

Write('Nhap lan luot 2 so x va y:');

Readln(x,y);

If (x mod 2=0) and (y mod 2=0) then writeln('Tich cua 2 so do la:',x*y) 

Else writeln('Tong cua 2 so do la:', x+y);

Readln;

End.

trả lời :

uses crt;

const fi='ketqua.txt';

var f1:text;

a,b,t:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

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

t:=a+b;

writeln(f1,t);

close(f1);

readln;

end.

Bài 2:

uses crt;

const fi='dulieu.txt';

var f1:text;

a,b,t:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

t:=a+b;

writeln('tong cua hai so la: ',t);

close(f1);

readln;