chắc là sau readln nếu có thêm chấm phẩy

36D 37D 38D 39C 40C

đúng r nha

câu 5 nếu sửa thành "repaired" có đúng ko ạ??

PI = 3.14 R = float(input('Nhap ban kinh: ')) S = PI * R ** 2 print('Diện tích hình tròn bán kính', R, 'là:', S)
 

Các lỗi cú pháp đã được sửa:

Dòng thứ nhất: "PI= 3.14;" -> "PI = 3.14" (loại bỏ dấu chấm phẩy dư thừa)

Dòng thứ ba: "R=float(input('Nhap ban kinh: ')" -> "R = float(input('Nhap ban kinh: '))" (thiếu dấu đóng ngoặc ')' ở cuối dòng)

Dòng thứ ba: "S : PI*R**2" -> "S = PI * R ** 2" (thay dấu ':' bằng dấu '=' để gán giá trị của biểu thức)

Dòng thứ năm: "print('Diện tích hình tròn bán kính', r ' là: ',S)" -> "print('Diện tích hình tròn bán kính', R, 'là:', S)" (thay 'r' bằng 'R' để in giá trị của bán kính)

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

chắc là sau readln nếu có thêm chấm phẩy

Var r,s,c:real;

Begin

Write('Ban kinh = ');readln(r);

s:=3.14*r*r;

c:=2*3.14*r;

Writeln('Dien tich la ',s:10:2);

Write('Chu vi la ',c:10:2);

Readln

End.

Phần kiểm tra em tự nhập bài vô máy rồi kiểm tra nhé

uses crt;

var a:array[1..100]of integer;

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

for i:=1 to n do readln(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

program sonho;

var

     arr:array[1..100] of integer;

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

     write('Nhap cac phan tu cua day: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.

Program câu 1;

Var n: Integer; s:real;

Begin

Writeln(‘ Nhap gia tri n=’); Readln(n);

S:=0;

While n<0 do

begin

s:=s+n/2; n:=n-1;

end;

write(‘tong s = ‘, s:8:2);

Readln;

End.

Lỗi sai:

Program câu 1; -> Tên chương trình không chứa dấu cách trắng.

-> Sửa: Program cau_1;

Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n

-> Sửa: 

Writeln(‘ Nhap gia tri n=’); Readln(n);

While n >0 do

s:=s+n/2; n:=n-1;

Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con. 

-> Sửa 

While n >0 do

begin

s:=s+n/2; n:=n-1;

end;