Writeln ('((10+5)*(10+5)-(2+12))/3=',((10+5*(10+5)-(2+12))/3); End Kết quả là

NN

Nhung Nguyen

15 tháng 11 2021

Hãy cho biết kết quả in ra màn hình của câu lệnh Pascal sau đây: (2đ)
Writeln( ' 2*10+14= ', 2*10+14 );
Writeln( ' 20*3+20= ' , ' 20*3+20 ' );

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

15 tháng 11 2021

1: 2*10+14= 34

2: 20*3+20= 80

Đúng(1)

VD

Vương Đình Đô

9 tháng 10 2022

theo mình thì câu 1 của bạn đúng còn câu 2 thì có dấu ngoặc đơn ở 20*3+20 nên nó sẽ in ra thành 20*3+20=20*3+20.

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

program bt3; uses crt; var n: longint; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n ='); read(n); if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000; chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0; while n >= 0 do begin dem:=0; n:=n div 10; dem:=dem+1; end; case dem of 1: begin if n = 0 then writeln('khong'); if n = 1 then writeln('mot'); if n = 2 then writeln('hai'); if n = 3 then writeln('ba'); if n = 4 then writeln('bon'); if n = 5 then writeln('nam'); if...

Đọc tiếp

program bt3;
uses crt;
var n: longint;
dem: byte;
chucngan,ngan,tram,chuc,donvi: byte;
begin
writeln('Nhap n ='); read(n);
if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000;
chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0;
while n >= 0 do begin
dem:=0;
n:=n div 10; dem:=dem+1;
end;
case dem of
1: begin
if n = 0 then writeln('khong');
if n = 1 then writeln('mot');
if n = 2 then writeln('hai');
if n = 3 then writeln('ba');
if n = 4 then writeln('bon');
if n = 5 then writeln('nam');
if n = 6 then writeln('sau');
if n = 7 then writeln('bay');
if n = 8 then writeln('tam');
if n = 9 then writeln('chin');
end;
2: begin
chuc:=0;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
3: begin
tram:=0;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('lam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
4: begin
ngan:=0;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:=n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
5: begin
chucngan:=0;
chucngan:=n div 10000;
case chucngan of
1: writeln('muoi');
2: writeln('hai muoi');
3: writeln('ba muoi');
4: writeln('bon muoi');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi ');
9: writeln('chin muoi');
end;
ngan:=0;
n:= n mod 10000;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
6: writeln('Mot tram ngan');
end;
readln;
end.

Sao chạy không đc, kiểm tra giúp (đã chỉnh sửa, nhập đc rồi)

Tin học [Hỗ trợ]

#Tin học lớp 8

3

ML

Minh Lệ

24 tháng 5 2019

Bạn cho mình xem đề được không

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

Nhập vào số nguyên dương n <= 100000 và in ra màn hình cách đọc

Đúng(0)

NH

nguyễn hoàng nhật linh

6 tháng 10 2021

Câu 1: Câu lệnh Writeln( ‘36 div 3’); cho kết quả gì?A. 36 div 3 B. ‘36 div 3’ C. 12 D. 0Câu 2: Câu lệnh in kết quả tính toán của 10 chia 3?A. Writeln(‘10/3’); B. Writeln(10/3); C. Writeln(‘10/3=’, 10:3); D. Writeln(‘10/3=’, ‘10/3’);Câu 3: Chọn kết quả đúng của các phép toán sau?A. 8 MOD 2=0 B. 8 MOD 2=4 C. 8 DIV 2 =0 D. 8 DIV 2 =2Câu 4: Chọn kết quả đúng của các phép toán sau?A. 9 DIV 3=3 B. 9 MOD 3=1 C. 12 MOD 3=4 D. 12 DIV 3=0Câu 5: Phạm vi giá trị của...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

6 tháng 10 2021

Câu 1: A

Câu 2: B

Câu 3: A

Câu 4: A

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

program bt3; uses crt; var n: integer; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n = :'); read(n); if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n >=0; while n >= 0 do dem:=0; begin n:=n div 10; dem:=dem+1; end; case dem of 1: begin if n = 1 then writeln('mot'); if n = 2 then writeln('hai'); if n = 3 then writeln('ba'); if n = 4 then writeln('bon'); if n = 5 then writeln('nam'); if n = 6 then writeln('sau'); if n = 7 then writeln('bay'); if n = 8 then...

Đọc tiếp

program bt3;
uses crt;
var n: integer;
dem: byte;
chucngan,ngan,tram,chuc,donvi: byte;
begin
writeln('Nhap n = :'); read(n);
if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n >=0;
while n >= 0 do
dem:=0;
begin
n:=n div 10; dem:=dem+1;
end;
case dem of
1: begin
if n = 1 then writeln('mot');
if n = 2 then writeln('hai');
if n = 3 then writeln('ba');
if n = 4 then writeln('bon');
if n = 5 then writeln('nam');
if n = 6 then writeln('sau');
if n = 7 then writeln('bay');
if n = 8 then writeln('tam');
if n = 9 then writeln('chin');
end;
2: begin
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
3: begin
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('lam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
4: begin
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:=n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
5: begin
chucngan:=n div 10000;
case chucngan of
1: writeln('muoi ngan');
2: writeln('hai muoi');
3: writeln('ba muoi');
4: writeln('bon muoi');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi ');
9: writeln('chin muoi');
n:= n mod 10000;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
6: writelnngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
6: writeln('Mot tram ngan');
readln
end.

LỖI:

source.pas(41,1) Error: Constant and CASE types do not match

source.pas(41,1) Error: Constant Expression expected

source.pas(41,1) Fatal: Syntax error, ":" expected but "CASE" found

#Tin học lớp 8

1

NQ

Nguyễn Quang Kiên

12 tháng 6 2019

dài ing

Đúng(0)

D

duc99duc

10 tháng 5 2021

câuđúngsainếu sai sửa lại cho đúngfor i:=1 to 10 do writeln('A'); var X; Array[5...10] of char; X:=10;while X:=10 do X:=X+5; for i=1.5 to 10.3 do...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

10 tháng 5 2021

For i:=1 to 10 do writeln('A'); Đúng

Var x; array[5...10]of char; Sai

Sửa lại: var x:array[5..10]of char;

Đúng(0)

D

duc99duc

10 tháng 5 2021

câuđúngsaisửa lại cho đúng nếu saifor i:=1 to 10 do writeln('A') var X; Array[5...10] Of Char X:=10;while X:=10 do X:=X+5 for i=1.5 to 10.3 do...

Đọc tiếp

#Tin học lớp 8

1

MN

Minh Nhân

10 tháng 5 2021

a) thiếu dấu ; ở cuối

sửa: for i:=1 to 10 do writeln ('A');

b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu

sửa: var X: array [5..10] of char;

b) thiếu dấu ; ở cuối câu lệnh

sửa: X:=10; while X=10 do X:=X+5;

d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên

sửa: for i:=1 to 10 do writeln('A');

Đúng(1)

D

duc99duc

10 tháng 5 2021

chắc ko

Đúng(0)

NT

Nguyễn Trần Nhật Khang

11 tháng 1 2022

Câu 70)Kết quả của chương trình sau là:BeginWriteln('5+20=','20+5');Readln;End. A) 5+20=20+5 B) 5+20=25 C) Writeln('5+20=','20+5') D) Writeln('5+20=','20+5'); Câu 71)Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như sau : A) Tong:a+b; B) Tong=a+b; C) Tong(a+b); D) Tong:=a+b; Câu 72)Trong Pascal, phép toán MOD với số nguyên có tác dụng gì A) Chia lấy phần dư B) Chia lấy phần...

Đọc tiếp

Câu 70)Kết quả của chương trình sau là:

Begin

Writeln('5+20=','20+5');

Readln;

End.

A) 5+20=20+5

B) 5+20=25

C) Writeln('5+20=','20+5')

D) Writeln('5+20=','20+5');

Câu 71)Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như sau :

A) Tong:a+b;

B) Tong=a+b;

C) Tong(a+b);

D) Tong:=a+b;

Câu 72)Trong Pascal, phép toán MOD với số nguyên có tác dụng gì

A) Chia lấy phần dư

B) Chia lấy phần nguyên

C) Làm tròn số

D) Thực hiện phép chia lấy phần thập phân

Câu 73)Cho đoạn chương trình sau:

a:=3; b:=5;

if a < b then c:=a+b;

c:=7;

Sau khi thực hiện đoạn chương trình trên, giá trị của c là bao nhiêu?

A) c=3

B) c=5

C) c=8

D) c=7

Câu 74)Câu lệnh điều kiện dạng thiếu là:

A) If <điềukiện> then <câulệnh>;

B) If <điềukiện> then <câulệnh1> else <câulệnh2>;

C) If <điềukiện> then <câulệnh1>; else <câulệnh2>;

D) If <điềukiện>; then <câulệnh>;

Câu 75)Trong ngôn ngữ lập trình Pascal từ khóa Program dùng để:

A) Khai báo hằng.

B) Khai báo thư viện.

C) Khai báo biến.

D) Khai báo tên chương trình.

Câu 76)Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?

A) 10 biến.

B) Chỉ hạn chế bởi dung lượng bộ nhớ.

C) Chỉ một biến cho mỗi kiểu dữ liệu.

D) Không giới hạn.

Câu 77)Để tìm giá trị lớn nhất của 2 số a, b thì ta viết:

A) Max:=a;If b>Max then Max:=b;

B) Max:=b;If a>Max then Max:=a;

C) If (a>b) then Max:=a;If (b>a) then Max:=b;

D) Cả 3 câu đều đúng.

Câu 78)Trong các cách khai báo Hằng sau đây cách khai báo nào là đúng

A) Const Pi = 14.3;

B) Const = Pi;

C) Pi = 3.14;

D) Const Pi = 3,14;

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 1 2022

Câu 70: A

Câu 71: D

Câu 72: A

Câu 73: C

Câu 74: B

Câu 75: D

Câu 76: D

Câu 77: D

Câu 78: A

Đúng(0)

NC

Nguyễn Cảnh Hùng

4 tháng 9 2019

Xét chương trình sau:

Var a: integer;

Begin

a:=5;

a:= a+10;

Writeln(a);

Readln;

End.

Kết quả của chương trình trên là:

A. 15

B. 10

C.5

D. Tất cả đều sai.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

4 tháng 9 2019

Đáp án A

Đúng(0)

HL

Hien Lee

25 tháng 4 2020

Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau: Xét chương trình sau: Const a=20; d= TRUE Var b: integer; x: real; c: char: Begin write (' Hay nhap gia tri cho b: ') ; readln(b) ; write (' Hay nhap gia tri cho c: ') ; readln(c) ; ... readln; End. Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào...

Đọc tiếp

#Tin học lớp 8

1

HT

Huỳnh Thanh Nguyên

1 tháng 12 2020

Lệnh 1: 8

Lệnh 2: FALSE

Lệnh 3: 3

Lệnh 4: ______3.00

Lệnh 5: ______3.33

Lệnh 6: TRUE

Lệnh 7: TRUE

Lệnh 8: TRUE

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

câu	đúng	sai	nếu sai sửa lại cho đúng
for i:=1 to 10 do writeln('A');
var X; Array[5...10] of char;
X:=10;while X:=10 do X:=X+5;
for i=1.5 to 10.3 do writeln('A');

câu	đúng	sai	sửa lại cho đúng nếu sai
for i:=1 to 10 do writeln('A')
var X; Array[5...10] Of Char
X:=10;while X:=10 do X:=X+5
for i=1.5 to 10.3 do writeln('A')

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP