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.
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);
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);
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63