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.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
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.
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.
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
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 '