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.

9 tháng 11 2022

1 tỷ =

10 tháng 11 2022

program vd2;
uses crt;
var x,y:integer;
S:real;
begin
readln(x,y,S);
S:=(x+y+5)/3;
write(S);
readln;

End.

26 tháng 9 2017

Program thu-nghiem

uses crt;

write (`Xin chao cac ban`);

write (`Hay hoc hanh cham chi`);

readln

end

Sửa:

Program thunghiem;

uses crt;

writeln (`Xin chao cac ban`);

writeln (`Hay hoc hanh cham chi`);

readln;

end.

26 tháng 9 2017

Góp ý nha!

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"

6 tháng 3 2023

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;

13 tháng 11 2018

Uses crt;

Var x: real; y: Integer;

Begin

x:= 10;

y:= 5/2;

y:= x+y;

Write('Y=',Y);

Bài này bạn làm sai nhiều lắm, k có End. r mấy câu gán x và y bị lặp nhau nói chung là bài làm này chưa đúng. Nếu k hiểu thì bạn đặt câu hỏi ra luôn r mình giải hộ cho. Chúc bạn học tốt !

13 tháng 11 2018

lỗi thứ 1:

uses ; crt ; ➝ uses crt;

lỗi thứ 2:

bạn đã khai báo y là số nguyên thì không thể thực hiện được phép chia 5/2 được nên phải khai báo y là số thực( mình chỉ giải thích thêm thôi)

nên sửa lại:

var x,y;real; hay Var x:real; y:real;

và thêm dấu chấm phẩy vào sau y:=5/2

lỗi thứ 3

phải thêm dấu hai chấm và dáu chấm phẩy vào y:=x+y;

nếu bạn để trùng cũng được bởi vì pascal chạy tuần tự từng câu lệnh

lỗi thứ 4:

thêm end vào cuối bài nữa nhé (nếu bạn muốn xem chương trình thì thêm readln trên end nhé)

nếu thiếu bỏ qua cho mình nhéhihi

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.

Không đúng nha bạn