program bai_1;

uses crt;

begin

clrscr;

writeln('(53–7.5+3-52)/(6-3 )',(53–7.5+3-52)/(6-3 ):5:2);

readln;

end.

 program bai_2

uses crt;

begin

writeln(' 70 mod 9 nhan voi 15=',(70 mod 9)*15);

readln;

end.

program bai_3

uses crt;

var x:real;

begin

clrscr;

write('nhap x: ')readln(x);

writeln('(x3+3x2-5.x+14)',(x*3+3*x*2-5*x+14);

readln;

end.

Xin trả lời hay nhất ạ!

Câu 1 :

uses crt;

var t : string;

begin

clrscr;

t := '(53 - 7.5 + 3 - 52) / (6 - 3) = ';

write(t, (53 - 7.5 + 3 - 52) / (6 - 3));

readln

end.

Câu 2 :

uses crt;

var t : string;

begin

clrscr;

t := '(70 mod 9) * 15 = ';

write(t, (70 mod 9) * 15);

readln

end.

Câu 3 :

uses crt;

var x : integer; t : string;

begin

clrscr;

write('Nhap x : '); readln(x);

t := 'x³ + 3x² - 5x + 14 = ';

write(t, x * x * x - 3 * x * x - 5 * x + 14);

readln

end.