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.

Câu 1: Câu lệnh cho phép nhập giá trị của C tại bàn phím a.Write(C) b.Writeln(C) c.Write('Nhap gia tri của C'); d.Readln(C); Câu 2: If..Then..Else là: a. Vòng lặp không xác định b.Vòng lặp xác định c.Một khai báo d. Câu lệnh điều kiện Câu 3: Khi ta khai báo biến x có kiểu là INTEGER thì phép gán nào sâu đây hợp lệ a.x:=a; b.x:='tin_hoc'; c.x:=200; d.x:=1.23; Câu 4: Trong câu lệnh lặp for i:=1 to 12 do...
Đọc tiếp

Câu 1: Câu lệnh cho phép nhập giá trị của C tại bàn phím

a.Write(C)

b.Writeln(C)

c.Write('Nhap gia tri của C');

d.Readln(C);

Câu 2: If..Then..Else là:

a. Vòng lặp không xác định

b.Vòng lặp xác định

c.Một khai báo

d. Câu lệnh điều kiện

Câu 3: Khi ta khai báo biến x có kiểu là INTEGER thì phép gán nào sâu đây hợp lệ

a.x:=a;

b.x:='tin_hoc';

c.x:=200;

d.x:=1.23;

Câu 4: Trong câu lệnh lặp

for i:=1 to 12 do Writeln('A')

Hãy cho biết có bao nhiêu vòng lặp được thực hiện

a.Không lần nào

b.1 lần

c.2 lần

d.12 lần

Câu 5: Cho các cách khai báo biến sau đây, cách khai báo nào là hợp lệ trong turbo pascal

a. var a=integer

b.var a:integer

c.var a:=integer;

d.var :a:integer

Câu 6: Sau khi thực hiện đoạn chương trình sa, giá trị của S là bao nhiêu

S:=0

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

a.20

b.15

c.10

d.25

Câu 7: Trong các câu lệnh sau, câu nào hợp lệ

a. for i:=4 to 1 do writeln('Y')

b.for i=1 to 10 do writel('Y')

c. for i:=1 to 10 do writeln('Y');

d. for i to 10 do writeln('Y');

Câu 8: Câu lệnh Write('19 mod 3 =', 19 mod 3); in gì lên màn hình

a. 19 mod 3 =1

b. 19 mod 3 = 19 mod 3

c. 19 mod 3 = 6

d. 19 mod 3 = 0

Câu 9: Điều kiện được biểu diễn bằng

a. Phép so sánh

b. Giá trị

c. Ngôn ngữ

d.Lệnh lặp

Câu 10: Khai triển biểu thức tính toán đa thức em sử dụng lệnh

a. Factor

b.iFactor

c.Simplify

d. Expand

Part 2#

(4/22/2019,12.05: CÒN 1h.30 LÀ MÌNH VÀO THI NÊN MONG THÁNH NHÂN GIÚP)

1
22 tháng 4 2019

1.d

2.d

3.c

4.d

5.b

6.b

7.c

8.a

9.a

10.d

Hình như không có câu nào sai hết đó bạn

uses crt;

var a,b,c,d,i,min:integer;

x:array[1..4]of integer;

begin

clrscr;

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

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

write('Nhap d='); readln(d);

x[1]:=a;

x[2]:=b;

x[3]:=c;

x[4]:=d;

min:=x[1];

for i:=1 to 4 do 

  if min>x[i] then min:=x[i];

writeln(min);

readln;

end.

cin>>x>>y;

4 tháng 1 2022

1B

2D

23 tháng 10 2022

sai rồi

 

28 tháng 4 2022

C.hihi

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%2==0) t+=i;

cout<<t;

return 0;

}

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

17 tháng 11 2019

Đáp án B

15 tháng 11 2019

Đáp án B

24 tháng 4 2018

Đáp án B