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.
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 ạ
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.
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.
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
