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.

thực hiện công việc nhập n số từ bàn phím

11 tháng 5 2020

Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

17 tháng 5 2021

sữa i bằng b đi bạn ơi

7 tháng 10 2018

Var a: string;

  i, Dem: integer;

Begin

 writeln(‘nhap xau:’);

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

1) Kiểu dữ liệu của các phần tử trong mảng là: a) Mỗi phần tử là 1 kiểu b) Có cùng một kiểu dữ liệu c) Có cùng một kiểu đó là kiểu số nguyên d) có cùng một kiểu đó là kiểu số thực. 2) Cú pháp nào sau đây là đúng? a) Type mang: array [-100 to 100] of integer; b) Type mang =array[-100 to 100] of integer; c) Type mang: array[-100..100] of integer; d)Type mang =array[-100..100] of integer; 3) Cú pháp câu lệnh nào sau đây đúng? a)...
Đọc tiếp

1) Kiểu dữ liệu của các phần tử trong mảng là:

a) Mỗi phần tử là 1 kiểu

b) Có cùng một kiểu dữ liệu

c) Có cùng một kiểu đó là kiểu số nguyên

d) có cùng một kiểu đó là kiểu số thực.

2) Cú pháp nào sau đây là đúng?

a) Type mang: array [-100 to 100] of integer;

b) Type mang =array[-100 to 100] of integer;

c) Type mang: array[-100..100] of integer;

d)Type mang =array[-100..100] of integer;

3) Cú pháp câu lệnh nào sau đây đúng?

a) Var mang: array[1...100,1...100] of char;

b) Var mang: array[1...100; 1...100] of char;

c) Var mang2c: array(1..100,1..100) of char;

d) Var mang2c: array[1..100, 1..100] of char;

4) Cú pháp câu lệnnh nào sau đây đúng?

a) Type mang: array [-100 to 100, -100 to 100] of integer;

b) Type mang: array [-100..100,-100..100] of integer;

c) Type mang = array [-100 to 100, -100 to 100] of integer;

d) Type mang = array [-100..100, -100..100] of integer;

5) Với khai báo A:array[1..100,1..100] of integer; thì việc truy xuất đến các phần tử như sau:

a) A( i , j )

b) A[ i , j ]

c) A( i ; j )

d) A[ i ; j ]

6) Xâu ' ABBA ' bằng xâu:

a) 'A'

b) 'B'

c) 'abba'

d) Tất cả đều sai.

7) Xâu '2007' nhỏ hơn xâu:

a) '20007'

b) '207'

c) '1111111111'

d) '1010101010'

8) Hàm copy (s,p,n) cho giá trị là:

a) Một xâu gồm n kí tự liên tiếp bắt đầu từ vị trí p của xâu S

b) Một xâu gồm p kí tự liên tiếp bắt đầu từ vị trí n của xâu S

c) Một xâu gồm n kí tự liên tiếp bắt đầu từ vị trí p-n của xâu S

d) Một xâu gồm p kí tự liên tiếp bắt đầu từ vị trí n-p của xâu S

9) Trong các phát biểu sau, phát biểu nào đúng:

a) Có thể nhập giá trị của một biến kiểu bản ghi như nhập giá trị của biến kiểu dữ liệu chuẩn.

b) Có thể xuất giá trị của một biến kiểu bản ghi như xuất giá trị của biến kiểu dữ liệu chuẩn.

c) Có thể nhập hay xuất giá trị của một biến kiểy bản ghi như nhập hay xuất giá trị của biến kiểu dữ liệu chuẩn.

d) Các thao tác nhập, xuất hhay xử lý mỗi trường bản ghi phải tuân theo quy định của kiểu trường này..

10) Để truy cập dữ liệu của trường nào đó trên biến bản ghi ta sử dụng cú pháp:

a) Tên trường. tên biến;

b) Tên trường: tên biến;

c) Tên biến. tên trường;

d) Tên biến: tên trường

11) Để truy xuất đến các phần tử của mảng 1 chiều ta dùng mấy vòng lặp for.....do

a) 1

b) 2

c) 3

d) 4

12) Để truy xuất đến các phần tử của mảnh 2 chiều ta dùng mấy vòng lặp for.....do

a) 1

b) 2

c) 3

d) 4

0
16 tháng 1 2019

D

13 tháng 10 2019

A mới đúng nhé bạn

in ra thì phải write(a[i]:5) mới đúng

D là nhập rồi nhé bạn

3 tháng 3 2021

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.