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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ
![](https://rs.olm.vn/images/avt/0.png?1311)
ở cái 1 nó kiểm trả Long>Trang lớn hơn rồi thì nó vẫn tiếp tục kt lệnh Long<Trang thì sẽ ra 2 kết quả
còn cái 2 ở cái nó kt Long>Trang rồi thì nó in luôn Long cao hơn
![](https://rs.olm.vn/images/avt/0.png?1311)
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program GPTBN ;
var a,b: Real ;
Begin
Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)
else if b=0 then writeln (' Phuong trinh co vo so nghiem ')
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
program gptbn;
uses crt;
var a,b:real;
begin
write('Nhap he so a,b cua phuong trinh: ');readln(a,b);
if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)
else if b = 0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem');
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
uses crt; ----> Khai báo thư viện có tên crt
var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)
begin ----> Bắt đầu chương trình chính
clrscr; ----> Xóa toàn bộ màn hình
write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen
readln(n); ----> Nhập giá trị cho biến n
if n<=1 then writeln(n,' khong la so nguyen to')
----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to
else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)
begin ----> Khởi tạo tạo khối chương trình phụ
i:=2; ----> Gán biến i có giá trị bằng 2
while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị
if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to
else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to
end; ----> Kết thúc khối chương trình phụ
readln ----> Đọc ra màn hình
end. ----> Kết thúc chương trình chính
b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to
c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
Bạn cho mình xem đề được không
Nhập vào số nguyên dương n <= 100000 và in ra màn hình cách đọc