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.

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;

4 tháng 6 2023

lỗi sai :

dòng 1: biến b phải là kiểu dữ liệu số thực 

sai cú pháp khai báo 

dòng 2: sai cú pháp khai báo hằng 

dòng 4 : thiếu (;)

 

viết lại chương trình :

Var a : Integer;

b : real ;

Const  c = 3;

Begin

         a: = 200 ;      

         b : = a / c ;

         Write (b);

Readln;

End.

 

 

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

7 tháng 12 2021

Lỗi

7 tháng 12 2021

lỗi r

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.