Cho đoạn chương trình:

i:=4; K:=7;

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.

Đoạn chương trình 1:

j=7

k=10

Đoạn chương trình 2:

j=7

k=28

3 tháng 5 2019

1. program b1 ;

var i,n :integer ;

begin

tong:=0;

for i:= 1 to 200 do n:=n+i;

write('Tong 200 so nguyen dau tien la :',n);

readln

end.

2. program b2 ;

var i,t: integer;

begin

t:=1;

for i:= 1 to n do t:=t*i;

write('Tich 30 so nguyen dau tien la : ',t);

readln

end.

3. program b3;

var n,i : integer ;

begin

write('n='); readln(n);

n:=1;

for i:= 1 to n do n:=n*i; write('n!=',n);

readln

end.

4. program b4;

var i,n,x:integer;

lt:longint;

begin

write('nhap x='); readln(x);

write('nhap n='); readln(n);

lt:=1;

for i:=1 to n do lt:=lt*x;

write(x,'^',n,'=',lt);

readln

end.

17 tháng 8 2021

Cách đơn giản nhất là dùng câu lệnh
if …
else if…
else

17 tháng 8 2021

bạn viết ra đc kh ạ

3 tháng 1 2018

a) (1/(b+2))*(a*a+c)=5

b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)

c) 8*x-7>1

d) (b*b)-(4*a*c) >=0

e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01

f) (a-3)*(a+5)=0

g) ((a+c)*h)/2 < > 1

h) 2*x+3 <= 25*y;

k) x >= (m+5)/(2*a);

l)3,14*(R*R) > a*a

29 tháng 12 2017

a) ((1/(b+2))*(a*a+c)=5*k*x)>=(m+5)/2*a

b)(k*k)+((k+1)*(k+1)) <>((k+2)*(k+2)) .(dấu | ) mình không hiểu lắm )

c)8*x-7>1

d) (b*b)-(4*a*c)>=0

e) (1/n)*(1/(n+1))*(1/(n+2)<0,01

f) (a-3)*(a+5)=0

g)((a+c)*h)/2<>1

h)2*x+3<=25*y

20 tháng 11 2021

a. Hợp lệ

b. Không hợp lệ (vì 3242 là số mà X là biến kiểu xâu )

c. Hợp lệ

d. Không hợp lệ (vì -3242 là số mà X là biến kiểu xâu )

Câu 1: Xác định bài toán là: A. Viết thuật toán của bài toán B. Tìm INPUT và OUTPUT C. Viết chương trình D. Tất cả đều sai Câu 2: Quá trình giải toán trên máy tính gồm các bước: A. Xác định bài toán B. Mô tả thuật toán và viết chương trình C. Xác định bài toán và viết chương trìn D. Câu a và b đúng. Câu 3: Các kiểu dữ liệu nào sau đây không...
Đọc tiếp

  • Câu 1:

    Xác định bài toán là:

    • A. Viết thuật toán của bài toán
    • B. Tìm INPUT và OUTPUT
    • C. Viết chương trình
    • D. Tất cả đều sai
  • Câu 2:

    Quá trình giải toán trên máy tính gồm các bước:

    • A. Xác định bài toán
    • B. Mô tả thuật toán và viết chương trình
    • C. Xác định bài toán và viết chương trìn
    • D. Câu a và b đúng.
  • Câu 3:

    Các kiểu dữ liệu nào sau đây không phải là kiểu dữ liệu trong ngôn ngữ lập trình Pascal:

    • A. Chuỗi
    • B. Kí tự
    • C. Số nguyên
    • D. Hằng
  • Câu 4:

    Câu lệnh sau cho kết quả là gì? Write(‘5’,+,’6’)

  • Câu 5:

    Câu lệnh Readln; mang ý nghĩa gì?

    • A. Nhập giá trị cho biến
    • B. Xuất giá trị của biến
    • C. Tạm dừng chương trình để xem kết quả
    • D. Câu lệnh thiếu.
  • Câu 6:

    Tổ hợp phím CTRL + F9 có chức năng gì?

    • A. Xem màn hình kết quả
    • B. Chạy chương trình
    • C. Thóat khỏi Pascal
    • D. Dịch chương trình.
  • Câu 7:

    Khai báo sau có ý nghĩa gì?

    Var a: integer; b: Char;

    • A. Biến a thuộc kiểu dữ liệu số thực và biến b thuộc kiểu dữ liệu kí tự
    • B. Biến a thuộc kiểu dữ liệu số nguyên và biến b thuộc kiểu dữ liệu xâu
    • C. Biến a thuộc kiểu dữ liệu số nguyên và biến b thuộc kiểu dữ liệu kí tự
    • D. Các câu trên đều sai.
  • Câu 8:

    Câu lệnh: a:=a+1; có ý nghĩa gì?

    • A. Gán giá trị biến a cho a rồi cộng thêm 1 đơn vị
    • B. Giá trị a cộng thêm 1 đơn vị rồi gán cho biến a
    • C. Câu a và b sai
    • D. Câu a và b đúng.
  • Câu 9:

    Sau khi thực hiện đọan lệnh: Begin c:=a; a:=b; b:=c; End; Kết quả là gì?

    • A. Hoán đổi giá trị của hai biến a, c
    • B. Hoán đổi giá trị của hai biến a, c
    • C. Hoán đổi giá trị của hai biến b, c
    • D. Hoán đổi giá trị của hai biến b, c
  • Câu 10:

    Biến là gì?

    • A. Là đại lượng có giá trị không thay đổi trong quá trình thực hiện chương trình
    • B. Là đại lượng có giá trị luôn thay đổi trong quá trình thực hiện chương trình
    • C. Là đại lượng dùng để tính tốn
    • D. Là đại lượng dùng để khai báo tên chương
  • Câu 11:

    Tìm một điểm sai trong đoạn khai báo sau:

    Const lythuongkiet :=2010;

    • A. Dư dấu bằng (=)
    • B. Dư dấu hai chấm (:)
    • C. Tên hằng không được quá 8 kí tự.
    • D. Từ khóa khai báo hằng sai.
  • Câu 12:

    Hãy chỉ ra tên chương trình đặt sai trong các tên dưới đây:

    • A. Program baitap1;
    • B. Program bai tap1;
    • C. Program 1_baitap1;
    • D. Câu b và c sai
  • Câu 13:

    Trong chương trình Turbo Pascal từ khoá dùng để khai báo tên chương trình là:

    • A. Uses
    • B. Begin
    • C. Program
    • D. End
  • Câu 14:

    Một thuật toán chỉ có thể giải được bao nhiêu bài toán:

    • A. 1
    • B. 2
    • C. 3
    • D. nhiều
  • Câu 15:

    Cách khai báo hằng đúng là:

    • A. Const pi:=3,14 real;
    • B. Const pi: 3,14;
    • C. Const pi=3,14;
    • D. Const pi=3,14 real;
  • Câu 16:

    Cấu trúc rẽ nhánh có mấy dạng? Hãy viết biểu thức và vẽ sơ đồ các dạng cấu trúc rẽ nhánh.

  • Câu 17:

    chương trình nhập vào 1 số nguyên từ bàn phím, cho biết số nhập vào là số chẵn hay số lẻ (Dùng If ... Then ... Els

2
14 tháng 12 2019

Câu 1: B

Câu 2: D

Câu 3: D

Câu 4: Thông báo lỗi

Câu 5: C

Câu 6: B

Câu 7: C

Câu 8: D

Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn

Câu 10: B

Câu 11: B

Câu 12: D

Câu 13: C

Câu 14: A

Câu 15: C

Câu 16:

-Cấu trúc rẽ nhánh có 2 dạngCâu 17
uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

14 tháng 12 2019

C1: A

C2: D

C3: D

C4: báo lỗi

C5: C

C6: B

C7: C

C8: D

C9: Hoán đổi gt biến a và b

C10: B

C11: B

C12: D

C13: C

C14: A

C15: C

C16

- Cấu trúc rẽ nhánh có 2 loại

Hỏi đáp Tin học

C17

Hỏi đáp Tin học

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.