program bt3

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)

NN

Nguyên Nguyên

3 tháng 12 2019

a) đoạn chương trình này đúng hay sai? nếu sai sửa lại cho đúng?

b) chạy chương trình đã sửa đúng với a = 1, b = 2?

program bt3;

var a,b: byte;

begin

read(a,b);

a:=b;

b:= a-1;

writeln(a+b);

readln

end.

#Tin học lớp 11

1

NL

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

3 tháng 12 2019

Đoạn chương trình nào bạn

nếu là đoạn chương trình ở dưới là đúng rồi , không bị lỗi gì cả

Đúng(0)

KL

Khánh Linh

11 tháng 8 2017

BT3: Tính nhanh:

3) 3,67.58,35 +58,35 . 6,33

#Toán lớp 6

1

黎高梅英

11 tháng 8 2017

3,67 . 58,35 + 58,35 . 6,33

= ( 3,67 + 6,33 ) . 58,35

= 10 . 58,35

= 583,5

~ Chúc bạn học giỏi ! ~

Đúng(0)

LM

Luna Milk

9 tháng 7 2023

BT3: Rút gọn biểu thức

d, (x-2)^3-x(x+1)(x-1)+6x(x-2)

#Toán lớp 8

2

NL

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

9 tháng 7 2023

=x^3-6x^2+12x-8-x^3+x+6x^2-12x

=x-8

Đúng(0)

KT

『Kuroba ム Tsuki Ryoo ︵²ᵏ⁷』

9 tháng 7 2023

`@` `\text {Ans}`

`\downarrow`

`d,`

\((x-2)^3-x(x+1)(x-1)+6x(x-2)\)

`= x^3 - 6x^2 + 12x - 8 - [x(x^2 - 1)] + 6x^2 - 12x`

`= x^3 - 6x^2 + 12x - 8 - x^3 + x + 6x^2 - 12x`

`= (x^3 - x^3) + (-6x^2 + 6x^2) + (12x - 12x) -8`

`= x - 8`

Đúng(3)

LN

Lu nekk

6 tháng 12 2023

BT3: Thực hiện phép tính a, 3/ x-1 + 5/ x +1 - x/x^2-1

#Toán lớp 8

1

NL

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

6 tháng 12 2023

a: ĐKXĐ: \(x\notin\left\{1;-1\right\}\)

\(\dfrac{3}{x-1}+\dfrac{5}{x+1}-\dfrac{x}{x^2-1}\)

\(=\dfrac{3}{x-1}+\dfrac{5}{x+1}-\dfrac{x}{\left(x-1\right)\left(x+1\right)}\)

\(=\dfrac{3\left(x+1\right)+5\left(x-1\right)-x}{\left(x-1\right)\left(x+1\right)}\)

\(=\dfrac{3x+3+5x-5-x}{\left(x-1\right)\left(x+1\right)}\)

\(=\dfrac{7x-2}{\left(x-1\right)\left(x+1\right)}\)

Đúng(2)

2T

21_ Tô Hoàng Linh

6 tháng 11 2021

Đâu là các từ khoá:
a/ Program, end, begin.
b/ Program, end, begin, Readln, lop82
c/ Program, then, mot, hai,ba
d/ Lop82, uses, begin, end

#Tin học lớp 8

3

R

Rin•Jinツ

6 tháng 11 2021

A

Đúng(3)

DK

Đan Khánh

6 tháng 11 2021

A

Đúng(0)

LQ

Lê Quỳnh Anh

13 tháng 12 2018

This program is more funny than that program.

A. This program is more boring than that program.

B. This program is not as funny than that program.

C. That program is more funny than this program.

D. That program is more boring than this program.

#Tiếng anh thí điểm lớp 6

1

DH

Dương Hoàn Anh

13 tháng 12 2018

Đáp án D

Giải thích: cấu trúc so sánh hơn: “be more + tính từ dài + than”

Dịch: Chương trình này hài hước hơn chương trình kia.

Đúng(0)

KL

Khánh Linh

11 tháng 8 2017

BT3: Tính nhanh:

4) \(\dfrac{4678.4679+4680.31+4648}{4680.4679-4678.4679}\)

#Toán lớp 6

0

TB

Trần Bắc Huyền

1 tháng 5 2020

Cho tệp BT3.txt được lưu trong ổ đĩa D:\ gồm có n số nguyên, mỗi số cách nhau 1 dấu cách. VCT đọc nội dung từ tệp BT3.txt. Đếm số lượng số chẵn. Xuất ra màn hình số lượng số chẵn đếm được.

Giúp mình giải chi tiết với ạ.

#Tin học lớp 11

2

ML

Minh Lệ

1 tháng 5 2020

Program hotrotinhoc_hoc24;

const fi='D:\BT3.txt';

var f: text;

i,n,d: integer;

a: array[1..32000] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

end;

begin

write(d);

readln

end.

Đúng(0)

NL

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

1 tháng 5 2020

uses crt;

const fi='bt3.txt'';

var f1:text;

n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('So so chan trong day la: ',dem);

close(f1);

readln;

end.

Đúng(0)

TD

Thùy Dương

7 tháng 10 2021

Bt3: cho hình chóp S.ABCD có đáy là hình thang cạnh đáy lớn AD.lấy điểm H trên đoạn AC sao cho AH

#Toán lớp 11

1

NL

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

7 tháng 10 2021

Đề bài yêu cầu gì?

Đúng(0)

TD

Thùy Dương

7 tháng 10 2021

Dạ bài như này ạ undefined

Đúng(0)

NT

Ng Thi Diep Anh

28 tháng 4 2022

giúp em với ạ
Talk about your favorite TV program
-Tell the name of some program on TV
-What is your favorite TV program?Why
-How often do you watch TV?

#Tiếng anh lớp 7

1

H

HAT9

28 tháng 4 2022

Tham khảo nha:
Nowadays TV is one of the most popular means of entertainment and relaxation. We can see many programs on the TV: educational programs, films, cartoons, news, and so on. Some programs on TV that I have watched are Tom and Jerry, Pokemon, BBC news, etc. My favorite TV program is "The road to Olympia" :). It's a competition between geniuses, watching them answer many interesting questions fastly makes me admire them. Depending on my spare time, I watch TV. To me, watching TV is a way to relax my mind.

Đúng(1)

NT

Ng Thi Diep Anh

28 tháng 4 2022

Em cảm ơn ạ

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

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

Yêu cầu VIP