Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end

Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a='); readln(a)

Write('nhap b='); readln(b);

Tich:a*b

Writeln('tich cua a va b la:, Tich: 8:20);

Readln;

end;

Câu 41. Trong chương trình Pascal  nếu dùng lệnh xóa màn hình ta có khai báo nào sau đây?

          A. Use Crt;                                                      B. Var x,y : integer;

          C. Uses Crt;                                                    D.  Không cần khai báo

Từ nào là các từ khóa trong chương trình:

A. Begin, Program, Write, Uses, Read

B. Program, Var, Begin, Uses, Const, End

C. End, Read, Var, Const, program

D. Program, Begin, End, Uses, integer

program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.

cho em hỏi chương trình trên đúng ko ạ?

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.

Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     if m > n then writeln(m lon hon n);

     else if m < n writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!

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.