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:
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
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
A)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
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.
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);
bạn sửa lỗi hết rồi bạn