®bài đã được cục xuất bản chứng thực bản quyền vui lòng không sao chép®

program ct;

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

writeln('a+b/a-b',(a+b)/(a-b));

writeln('sqr(a+b)',sqr(a+b));

writeln('a*a*a+b*b*b',a*a*a+b*b*b);

READLN;

END.

®bài đã được cục xuất bản chứng thực bản quyền vui lòng không sao chép®

Hướng dẫn giải:

Program tinh_toan_bieu_thuc;

Uses crt;

Var a,b: Integer

Begin;

Clrscr;

Writeln('Nhap so nguyen a= '); Readln(a);

Writeln('Nhap so nguyen b= '); Readln(b);

Writeln('Ket qua cua bieu thuc a theo đề bài la: ',(a+b)/(a-b));

Writeln('Ket qua cua bieu thuc b theo đề bài la: ',(a+b)*(a+b));

Writeln('Ket qua cua bieu thuc c theo đề bài la: ',a*a*a-b*b*b);

Readln;

End.

Chúc bạn học tốt nhé