Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)
*Các lỗi sai là:
-Sai thứ tự các lệnh (begin trước, uses crt sau)
-Program vd: thiếu dấu ;
-Writeln('Chao cac ban!'): thiếu dấu ;
-Sai thứ tự các lệnh(end trước readln sau)
-Readln: thiếu ;
*Sửa lại:
Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.
b)
*Các lỗi sai là:
-Var a,b:=integer; Sai vì có dấu =
-Const c:=3; Sai vì có dấu :
-a:=200: Sai vì thiếu dấu ;
-b:=a/c: Biến b Sai kiểu dữ liệu;
-Writeln(b): Sai vì thiếu dấu ;
-Readln: Sai vì thiếu dấu ;
*Sửa lại:
Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
const không có ';'
thật ra chữ " const " là thừa đấy chỗ sai là : (4, 'x' , 'i' , '=' , 4*i) ; hai bên số 4 không có dấu '