huyển sang C++ với ạ: Program Tinh_Trung_Binh; uses crt; Var n,dem:Integer; x,TB:real; begin clrscr; dem:=0 ;TB:=0; write('nhap so cac so can tinh n=');realdn(n) while dem<n do begin dem:=dem+1 write('nhap so thu' ,dem,'='); readl(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua',n,` so la =',TB:10:3); writeln('nhap Enter de thoat...'); readln; end.

Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

program Hello;
uses crt;
var
a: real;
b,c :integer;
begin
  clrscr;
  writeln (4+5);
  read(a);
  writeln (4+9);
  read(b);
  c:=(a+b)
  writeln('Ket qua',c);
  read(c);
  readln;
end.

mọi người cho em hỏi em sai chỗ nào vậy ạ