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.

a: Bỏ chữ then

b: Thiếu dấu ngoặc và dấu chấm phẩy sau cùng

c: Bỏ dấu ; trước chữ else

19 tháng 1 2022

Sửa lại như vầy:

a) a:=5;

While a < 10 do

a:=a + 1;

b) for i:=1 to 10 do write('ABC');

c) If x > 5 then x:=x + 1

Else x:=x - 1;

19 tháng 4 2022

a) Var X : Array [1;50] of integer;  (sai cách khai báo mảng)

-> Var X : Array [1..50] of integer; 
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)

-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)

-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)

->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)

-> While x=10 do x:=x+5;

a) if a>b then max:=a; else max:=b;b) var X: Array[5..10] Of Real; c) X:=10; while X:=10 do X := X+5; d) for  i:=1.5 to 10 do m:=m + 1;e) if a>b then max:=a else max:=b;f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for  i:=1.5 to 10 do m:=m + 1;III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.B. Phần tử thứ  5 của mảng A được gán giá trị là 8.C. Khai báo mảng dayso gồm...
Đọc tiếp

a) if a>b then max:=a; else max:=b;

b) var X: Array[5..10] Of Real;

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

d) for  i:=1.5 to 10 do m:=m + 1;

e) if a>b then max:=a else max:=b;

f) var X: Array[5.5..10] Of Real;

g) X:=10; while X>10 do X := X+5;

h) for  i:=1.5 to 10 do m:=m + 1;

III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau:

A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực.

B. Phần tử thứ  5 của mảng A được gán giá trị là 8.

C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

D. Nhập giá trị cho phần tử thứ 2 trong mảng diem.        

IV. Bài tập

 Viết chương trình thực hiện các yêu cầu sau:

a.    Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím)

b.    Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân)

help với mai ktr ;-;

 

1

III:
A: var a:array[1..50]of real;

B: a[5]:=8;

C: var a:array[1..50]of integer;

D: readln(dem[2]);

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;

22 tháng 4 2019

Lời giải :

a) sai vì trước else không được chứa dấu ;

b) đúng

c) sai vì kết thúc x:=x+5 phải có dấu ;

d) sai vì trong vòng lặp for không có kiểu dữ liệu số thực

2 tháng 5 2019

Lời giải:

{ } = lỗi sai

a) For i:={1.5 to 10.5} do writeln('A');

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

b) X:=10; while {X:=10} do X:=X+5;

Sửa : x:=10; while x=10 do x:=x+5;

20 tháng 4 2023

a) Lỗi: Dư dấu ; sau từ do

b) Lỗi: While i>20 then (sửa: While i>20 do)

c) Lỗi: B=B+2; (sửa: B:=B+2;)

d) Lỗi: dư dấu ; sau từ do

e) Lỗi: S=S*2; (sửa: S:=S*2;)

f) Lỗi: i:=1 (sửa: i:=1;)

30 tháng 3 2019

Lời giải :

a) Không hợp lệ . Sửa : for i:= 1 to 100 do writeln('A');

b) Không hợp lệ . Sửa : for i:= 1 to 10 do write('A');

c) Không hợp lệ . Sửa: X:=10; while X=10 do X:=X+5;

d) tương tự câu c

Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnha)    X=0, for i:=1 to 5 do X:=x+1;b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 endc)    X:=5,if (45 mod 3)=0 then X:=x+2d)    X:=7;If x>10 then X:=x=1 else X:=X-2e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-nf)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnha)    X=0, for i:=1 to 5 do X:=x+1;b)    X:=0; i:=1,while i(=5 do...
Đọc tiếp

Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1

2
8 tháng 4 2021

bạn ơi khi nào cho câu hỏi thì cho ngắn thôi :))

8 tháng 4 2021

hoặc từng câu một

 

Câu 1:

-Đánh răng rửa mặt mỗi ngày

-Đi học

-Đi ngủ

Câu 2: 

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Câu 3: 

Lặp n-1+1=n(lần)

Câu 4: 

S=15

Câu 5: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

 

22 tháng 2 2021

mấy câu kia bạn làm được ko giúp giúp mình luôn ik