Viết chương trình nhập vào 3 số a,b,c từ bàn phím tính giá trị biểu thức và in kết quả ra màn hình. a, ( a+b)/c b, 20 div 3 + a^2 c, 10 mod 3+(a+c)^2 Ai giúp e vớiii :< e đang cần gấp mai phải nộp r

bàia

program etf;

var a,b,c:integer;

begin

write('nhap gia tri cho a');readln(a);

write('nhap gia tri cho b');readln(b);

write('nhap gia tri cho c');readln(c);

write('(a+b)/c=');write((a+b)/c);

write('20 div 3 + (a.a)');write(20 div 3 + (a.a);

write('10 mod 3+((a+c).(a+c))');write(10 mod 3+((a+c).(a+c)));

end.

Program BTT;
Uses crt;
Var a,b,c: longint;
    ca,cb,cc: extended;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        ca:=(a+b)/c;
        cb:=20 div 3 + sqr(a);
        cc:=10 mod 3 + sqr(a+c);
        Writeln('Cau a: ',ca:0:2);
        Writeln('Cau b: ',cb:0:2);
        Write('Cau c: ',cc:0:2);
        Readln
End.