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.

hacker cũng phải hỏi ư :((

 

Lâu rồi ko lên hoc24, vừa lên thấy bài hay ngay mới hay chứ

Thuật toán:

t=1 thì ko nói rồi do dễ quá

Khi t=2 thì ta có 2 biến dem0 và dem1 để giữ số các số 0 và 1

Nếu dem1<vt cần tìm thì số đó ko thể là số 1=>writeln(0)

Ngược lại thì số đó là 1=>writeln(1)

Code:

Program kth;
uses crt;
var n,i,t,x,q,dem1,dem0:integer;
    a:array[1..100000] of Byte;
    f1,f2:text;
Begin
    clrscr;
    assign(f1,'kth.inp'); reset(f1);
    assign(f2,'kth.out'); rewrite(f2);
    read(f1,n,q);
    for i:=1 to n do
        begin
            read(f1,a[i]);
            dem1:=dem1+ord(a[i]=1);
            dem0:=dem0+ord(a[i]=0);
        end;
    for i:=1 to q do
        begin
            read(f1,t,x);
            case t of
                 1:begin
                       if a[x]=1 then
                          begin
                              dec(dem1); inc(dem0);
                          end
                       else
                          begin
                              inc(dem1); dec(dem0);
                          end;
                       a[x]:=1-a[x];
                   end;
                 2:writeln(f2,1*ord(dem1>=x)+0*ord(dem1<x));
            end;
        end;
    Close(f1);
    close(f2);
End.

*Note:ord(bool) giống như khi làm trong C++,tức:

-Khi bool=true thì ra 1

-Khi bool=false thì ra 0

17 tháng 9 2021

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

 
10 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n '); readln(n);

t:=1;

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

write('2^,n,' = ',t);

readln

end.

10 tháng 5 2023

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

ai giúp mình làm đề cương câu này với mai mình thi rồi ạ Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *, /, div, moddiv, mod+, -, *, / và <, >, >=, <=, < >, = <, >, >=, <=, < >, =9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *,/and, or, <, >, >=, <=, < >, =and, or<, >, >=, <=, < >, =10.Kết quả của các phép chia hai số nguyên 14 và 5 là:14/5=2; 14 div 5=2; 14 mod 5=4;14/5=2.8; 14 div 5=4; 14 mod 5=214/5=2.8;...
Đọc tiếp

ai giúp mình làm đề cương câu này với mai mình thi rồi ạ

 

Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *, /, div, mod

div, mod

+, -, *, / và <, >, >=, <=, < >, =

 <, >, >=, <=, < >, =

9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *,/

and, or, <, >, >=, <=, < >, =

and, or

<, >, >=, <=, < >, =

10.Kết quả của các phép chia hai số nguyên 14 và 5 là:

14/5=2; 14 div 5=2; 14 mod 5=4;

14/5=2.8; 14 div 5=4; 14 mod 5=2

14/5=2.8; 14 div 5=2; 14 mod 5=4;

14/5=3; 14 div 5=2; 14 mod 5=4

11.Trong Pascal, điều kiện để a, b, c là 3 cạnh của một tam giác đều là:

a = b = c

(a = b) and (b = c)

(a = b) or (b = c)

a = b, b = c

12.Kiểu dữ liệu số nguyên là:

byte, integer

byte, word, integer, longint

char, string

real

13.Cho a=1, b=2, c=3, khẳng định nào sau đây là đúng?

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3 và tam giác đó có 1 góc vuông vì thỏa mãn c2=a2 + b2 (theo định lí Pytago)

a, b, c không là 3 cạnh của một tam giác

14.Cú pháp khai báo biến là:

var <danh sách tên biến> : <giá trị>;

var <danh sách tên biến> : <kiểu dữ liệu>;

var <danh sách tên biến> := <kiểu dữ liệu>;

var <danh sách tên biến> = <giá trị>;

15.Cú pháp khai báo hằng là:

var <tên hằng> = <giá trị>;

const <tên hằng> : <giá trị>;

var <danh sách tên hằng> = <giá trị>;

const <tên hằng> = <giá trị>;

16.Cú pháp câu lệnh gán giá trị cho biến là:

<tên biến> = <giá trị>;

<tên biến> : <giá trị>;

<tên biến> := <giá trị>;

<tên biến> := <giá trị>

1
24 tháng 12 2021

Câu 8: A

Câu 9: B

Câu 11: B

13 tháng 12 2021

Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :

A. x:= 2.5;

B. b:= (a=4) or (c=7); <= B

C. c:= pi*12;

D. a:=3,12;

13 tháng 12 2021

B. sai vì đây là câu lệnh logic,

D. sai vì trong pascal phần thập phân và phần nguyên ngăn cách nhau bởi dấu chấm không phải dấu phẩy

28 tháng 12 2020

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

18 tháng 3 2023

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.