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.

26 tháng 12 2019

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);

11 tháng 2 2020

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);

5 tháng 12 2017

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.

5 tháng 12 2017

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

Write('Nhap a ='); readln(a);

Write('Nhap b='); readln(b);

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

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"

19 tháng 3 2020

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.

19 tháng 3 2020

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.

program tong hai so;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap gia tri a);readln(a);

write('nhap so b'); readln(b);

c:=a+b;

writeln(tong cua hai so vua nhap la:',c);

readln;

end.

2 tháng 11 2019

cảm ơn bạn nhiều nhahaha

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 ạ 

16 tháng 12 2017

1. Program Bai11;

2. ....Uses.... crt;

3. ...Var..... a,b,H:integer;

4. ....Const.... c=12;

5.Begin

6. Clrscr;

7. write('nhap a='); Readln(a);

8. write('nhap b='); ......Readln.....(b);

9. H:=a*a+b*b+c;

10. Readln;

11. Writeln('H=',H);

12. ....End....