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.

 
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.

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

30 tháng 12 2021

Chọn B

31 tháng 10 2021

Câu 3: 

const pi=3.14

var x,y:real;

2:

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

 if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.