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 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.
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
