OLM ưu đãi đặc biệt gói SVIP 18 THÁNG dành cho nhà trường, đăng kí ngay!

Tham gia chương tình "Học kỳ rực rỡ" cùng OLM cơ hội nhận quà lên tới 2.000.000Đ

Cơ hội nhận 15 ngày VIP dành cho thầy cô nhân dịp đầu năm

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.

Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
Mua vip
??##
23 tháng 3 2020

Writeln ('((10+5)*(10+5)-(2+12))/3=',((10+5*(10+5)-(2+12))/3);

End

Kết quả là
#Hỏi cộng đồng OLM #Tin học lớp 8
4
NM
Nguyễn Minh Lệ
23 tháng 3 2020

Báo lỗi - Vì thiếu dấu đóng ngoặc.

Nếu lỗi do bạn thì kết quả là :

((10+5)*(10+5)-(2+12))/3=2.36666666666666666661E+0001

Đúng(0)
LT
Luân Trần
23 tháng 3 2020
https://i.imgur.com/JgkZ55c.png
Đú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...
Đọc tiếp

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. 0

Câ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 =2

Câ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=0

Câu 5: Phạm vi giá trị của kiểu dữ liệu integer?

A. −2 15 − 1 đến 2 15 B. −2 15 đến 2 15 C. −2 15 đến 2 15 − 1 D. −2 15 − 1 đế n 2 15 − 1

Câu 6: Kiểu dữ liệu Char có độ dài?

A. 255 kí tự B. 256 kí tự C. 0 kí tự D. 1 kí tự

Câu 7: Ý nghĩa của câu lệnh Writeln(‘ dien tich HCN=’,6*4); là gì?

A. ‘dien tich HCN=’,24 B. ‘dien tich HCN=’,6*4 C. dien tich HCN=24 D. dien tich HCN=6x4

Câu 8: Chọn phép toán đúng trong các phép toán viết bằng ngôn ngữ lập trình Pascal dưới đây?

A. x < (m+5)*(2a) B. x > (m+5)(2*a) C. x > (m+5)/2 D. x < (m+5)/2a

Câu 9: Phép toán 100 >= 5*x đúng với trường hợp nào?

A. x=20 B. x>20 C. x ≥ 21 D. x ≤ 21

Câu 10: Chọn phép toán sai trong các phép toán viết bằng ngôn ngữ lập trình Pascal dưới đây?

A. y ≥ 5*x B. y>= 5/x C. y>5*x D. y<5*x
#Hỏi cộng đồng OLM #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)
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.
#Hỏi cộng đồng OLM #Tin học lớp 8
1
DN
Đỗ Ngọc Trinh
4 tháng 9 2019

Đáp án A

Đúng(0)
QW
Queen Wolf
31 tháng 10 2021

Kết quả của lệnh Writeln ( 10+6) /( 3+1) - 18/ (5+1)

A.1

B.3

C.2

D.11
#Hỏi cộng đồng OLM #Tin học lớp 8
1
NL
Nguyễn Lê Phước Thịnh
31 tháng 10 2021

Chọn A

Đúng(1)
NT
Nguyễn Thị Ngọc Quỳnh
23 tháng 4 2020
Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,’ ‘); ☒1 2 3 4 5 6 7 8 9 10 ☐Đưa ra 10 khoảng trắng ☐Không có kết quả ☐10 9 8 7 6 5 4 3 2 1 Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write(‘i’); ☐iiiiii ☒5678910 ...
Đọc tiếp

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,’ ‘);

☒1 2 3 4 5 6 7 8 9 10

☐Đưa ra 10 khoảng trắng

☐Không có kết quả

☐10 9 8 7 6 5 4 3 2 1

Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write(‘i’);

☐iiiiii

☒5678910

☐i

☐iiiii

Câu 3: Đoạn chương trình sau cho kết quả gì?

For i:=5 to 10 do

If i mod 5 = 0 then write (i);

☐i i i i i

☐1 2 3 4 5

☐1 2 3 4 5 6 7 8 9 10

☒5 10

Câu 4: Đoạn chương trình sau cho kết quả gì?

S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);

☒54

☐15

☐50

☐151200

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

a:=3; b:=2;

If a>b then a:=4 else b:=1;

Sau khi thực hiện đoạn chương trình trên cho kết quả:

☐a=3

☐b=2

☒a=4

☐b=1

Câu 6: Đoạn chương trình sau cho kết quả gì?

S:=0;

For i:=1 to 9 do S:=S+i;

Write(s);

☐0

☒45

☐40

☐55

Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6” cần chọn câu lệnh nào sau đây?

☐Writeln(x:5);

☐Writeln(x);

☐Writeln(‘x=’,x:5:2);

☒Writeln(‘x=’,x:2:1);

Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:

☐Có phân biệt chữ hoa chữ thường.

☒Sau mỗi câu lệnh đều phải có dấu chấm phẩy.

☐Trước lệnh Else bắt buộc phải có dấu chấm phẩy.

☐Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.

Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?

☐Ctrl + Q

☐Ctrl + X

☐Alt + Q

☒Alt + X

Câu 10: Vòng lặp sau đây lặp lại mấy lần?

A:=2

For i:=0 to 7 do a:=a+1;

☐6

☐7

☒8

☐9
#Hỏi cộng đồng OLM #Tin học lớp 8
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...
Đọ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 học [Hỗ trợ]
#Hỏi cộng đồng OLM #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)
DN
duy nguyễn nhất
24 tháng 3 2022

Câu 21: Cho S và i là biến nguyên. Khi chạy đoạn chương trình:

s:=0;

for i:=1 to 3 do s := s+2*i;

writeln(s);

Kết quả in lên màn hình là:

A. 12                         B. 10                    C. 0                      D. 6
#Hỏi cộng đồng OLM #Tin học lớp 8
3
KS
kudo sinhinichi
24 tháng 3 2022

D

Đúng(0)
LS
laala solami
24 tháng 3 2022

d

Đúng(0)
NH
Nguyễn Huỳnh Quốc Việt
21 tháng 3 2023
Câu 30. Cho S và i là biến nguyên. Khi chạy đoạn chương trìnhs:=0;for i:=1 to 3 do s := s+2*i; writeln(s);               Kết quả in lên màn hình là A.12                   B. 10.                             C. 0.                     D....
Đọc tiếp

Câu 30. Cho S và i là biến nguyên. Khi chạy đoạn chương trình

s:=0;

for i:=1 to 3 do s := s+2*i;

writeln(s);              

Kết quả in lên màn hình là

A.12                   B. 10.                             C. 0.                     D. 6.
#Hỏi cộng đồng OLM #Tin học lớp 8
2
ML
Minh Lệ
21 tháng 3 2023

S = 0 + 2*1 + 2*2 + 2*3 = 2 + 4 + 6 = 12 -> A

Đúng(1)
NH
Nguyễn Hoàng Duy
21 tháng 3 2023

Đoạn chương trình trên tính tổng của 3 số chẵn liên tiếp nhau, bắt đầu từ 2.

Thứ tự tính toán như sau:

i=1: s=0+2*1=2i=2: s=2+2*2=6i=3: s=6+2*3=12

Vậy kết quả in lên màn hình là A. 12.

Đúng(1)
TD
Tứ Diệp Thảo
11 tháng 6 2020
Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình : S:=0; for i:=1 to 5 do S :=S +i; writeln(S); Kết quả in ra màn hình S là bao nhiêu ? Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây: S:=2; For i:=1 to 5 do S:=S + i; Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây: 1)X:=10; while X:=10 to X: X+5; 2) X:=10; while X = 10 do X=X+5 3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n; ( Giair chi tiết...
Đọc tiếp

Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :

S:=0;

for i:=1 to 5 do S :=S +i;

writeln(S);

Kết quả in ra màn hình S là bao nhiêu ?

Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:

S:=2;

For i:=1 to 5 do S:=S + i;

Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:

1)X:=10; while X:=10 to X: X+5;

2) X:=10; while X = 10 do X=X+5

3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;

( Giair chi tiết giúp mình với )
#Hỏi cộng đồng OLM #Tin học lớp 8
1
ML
Minh Lệ
12 tháng 6 2020

Bài 1: S=15

Bài 2: S=17

Bài 3:

1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;

2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')

3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)

Đú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...
Đọc tiếp

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 chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. writeln ( (36-5*2) div 3) ;
Lệnh 2.writeln ( (8 mod 3) <> 2);
Lệnh 3. writeln (b/6) ;
Lệnh 4. writeln (b/6 :10:2) ;

Lệnh 5. writeln (a/6:10:2) ;

Lệnh 6. writeln (b/6<=a/5) ;

Lệnh 7. writeln (c='K') ;

Lệnh 8. writeln (d) ;

Em hãy dùng Free Pascal để kiểm tra lại ý kiến của mình trong bài tập trên
#Hỏi cộng đồng OLM #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)
Bảng xếp hạng
Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
  • Tuần
  • Tháng
  • Năm
Các khóa học có thể bạn quan tâm
Tổng thanh toán: 0đ (Tiết kiệm: 0đ)
Tới giỏ hàng
Yêu cầu VIP