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.

28 tháng 9 2020

Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then

Begin

writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');

end
else

begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);

end;
readln;
end.

10 tháng 11 2021

Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ 

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

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.

13 tháng 10 2019

S:=a*b thiếu dấu ;

29 tháng 6

+thứ nhất, chỗ S:=a*b bạn thiếu ";"

+thứ hai, chỗ readln trước "end." thì ko đc thêm ";" vào sau "readln"