K
Khách

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.

21 tháng 6 2020

thoi de minh sua ca bai

var a, S:integer

begin

a:=S;

while a < 6 do writeln(a);

end.

Tìm và sửa lỗi trong ct pascal sau:           var              i: integer;             diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan,                                     diemTrungBinhAnh: real;        begin             diemTrungBinhToan := 0;             diemTrungBinhVan := 0;             diemTrungBinhAnh := 0;             for i := 1 to 100 do          begin              writeln('Nhap diem cua hoc sinh thu ', i, ' : ');             write('Diem Toan: ');           ...
Đọc tiếp

Tìm và sửa lỗi trong ct pascal sau:

           var
              i: integer;

             diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan,                                     diemTrungBinhAnh: real;
        begin
             diemTrungBinhToan := 0;
             diemTrungBinhVan := 0;
             diemTrungBinhAnh := 0;

             for i := 1 to 100 do
          begin 
             writeln('Nhap diem cua hoc sinh thu ', i, ' : ');
             write('Diem Toan: ');
             readln(diemToan); 
            diemTrungBinhToan := diemTrungBinhToan + diemToan;
             write('Diem Van: ');
             readln(diemVan);
             diemTrungBinhVan := diemTrungBinhVan + diemVan;
             write('Diem Anh: ');
             readln(diemAnh); 
            diemTrungBinhAnh := diemTrungBinhAnh + diemAnh;
            end;
            diemTrungBinhToan := diemTrungBinhToan / 100;
            diemTrungBinhVan := diemTrungBinhVan / 100;
            diemTrungBinhAnh := diemTrungBinhAnh / 100;
            writeln('Diem trung binh mon Toan la: ', diemTrungBinhToan:0:2); 
            writeln('Diem trung binh mon Van la ', diemTrungBinhVan:0:2);
            writeln('Diem trung binh mon Anh la: ', diemTrungBinhAnh:0:2); 

          Readln; 

          End.

1
8 tháng 5 2023

Đúng rồi bạn nha. Chương trình không có lỗi sai

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

1: Sai

2: Sai

3: Đúng

4: Đúng

5: Sai

c: Lỗi sai là chữ var

Sửa lại const a=8;

8 tháng 5 2023

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.

19 tháng 12 2022

Var a,b:integer;
           Const c =3;
           Begin
              a :=200;
              b :=a/c;
              write(b);
              readln; (ủa readln cái j)
           end.

19 tháng 12 2022

 Var a,b :integer;     (bỏ dấu =)
           Const c =3;     (bỏ dấu :)
           Begin
              a :=200;      (thêm ;)
              b :=a/c;       
              write(b);
              readln;       (thêm ';' cơ mà read cái j)
           end.                 (thêm '.')

a=integer

Sửa lại: a:integer;

b=real

Sửa lại: b:real;

14 tháng 5 2021

const b: integer; -> sử dụng lệnh khai báo biến thì dùng var chứ không dùng const

var a=90; -> nếu khai báo biến hằng thì thay var thành const

Var Tinh_tong :array[1.. 50.5] of char; -> chỉ số đầu và cuối phải thuộc loại số nguyên

Const b:integer: Sai vì const là dùng để khai báo hằng chứ khai báo biến mà b:integer là khai báo biến