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.
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 chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
* Program cau 1 phải trước uses crt;
Var toan; van; tbc; anh, interger; ( Sai )
=> Var toan, van, tbc, anh: integer;
* Begin phải trước lệnh clrscr;
Program Tinh _gia_tri_bieu_thuc;
Uses CRT;
Var x: Real;
Begin
Clrscr;
readln(x);
Writeln(‘Gia tri bieu thuc 12*x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3');
Write(‘Nhap gia tri x: ’);
Readln
End.