Giải thích mấy câu lệnh này giúp tui vs Program Tong_chu_so; Var s:string; i:byte; p:integer;{bien luu tong} begin write('Nhap so: ');readln(s); for i:=1 to length(s) do p:=p+ord(s[i]); p:=p-48*length(s); writeln(p); 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;

usescrt;

var A, B= integer;

Begin

clrscr;

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

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

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.

1.Hãy viết câu lệnh rẽ nhánh để kiểm tra số nguyên a có chia hết cho 3 hay không? 2.Cho câu lệnh lặp sau: For i:=35 Downto 20 do Write(‘Cau lenh lap biet truoc’); Hãy cho biết vòng lặp sẽ được lặp bn lần? Giải thích 3.Lập trình tính tổng các số trong khoảng từ 1 đến n (n

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.

Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;

Uses CRT

Var a;=integen;

b;=real;

Constc;=3;

Begin

a:=200;

b:=a/c;

Readln;

End

Câu 35: Một chương trình có các khai báo sau:

          Var a,b : real;

          Const c = 3.14;

          Câu lệnh nào trong các câu lệnh sau là không hợp lệ?

A.   readln(a,b);

B.   a:=b*c;

C.   c:= a;

D.   b:= c;

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 1: So sánh lệnh read và readln?

giúp mk với ạ !!