máy mình hơi yếu nên không cài được ide nha mình làm ide online nha

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

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

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

readln

end.

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

chương trình đơn giản??? *hết oxy*đây là tin hẻ

Phạm Mai Phương

   Máy tính là công cụ xử lý thông tin. Về cơ bản, quá trình xử lý thông tin trên máy tính - cũng như quá trình xử lý thông tin của con người -  có 4 giai đoạn chính : 

 Nhận thông tin (Receive input): thu nhận thông tin từ thế giới bên ngoài vào máy tính. Thực chất đây là quá trình chuyển đổi các thông tin ở thế giới thực sang dạng biểu diễn thông tin trong máy tính thông qua các thiết bị đầu vào.

 Xử lý thông tin (process information): biến đổi, phân tích, tổng hợp, tra cứu... những thông tin ban đầu để có được những thông tin mong muốn.

 Xuất thông tin (produce output) : đưa các thông tin kết quả (đã qua xử lý) ra trở lại thế giới bên ngoài. Ðây là quá trình ngược lại với quá trình ban đầu, máy tính sẽ chuyển đổi các thông tin trong máy tính sang dạng thông tin ở thế giới thực thông qua các thiết bị đầu ra.

 Lưu trữ thông tin (store information): ghi nhớ lại các thông tin đã được ghi nhận để có thể đem ra sử dụng trong những lần xử lý về sau.

    Ðể đáp ứng 4 thao tác đó thì một máy tính thông thường cũng gồm bốn thành phần hợp thành, mỗi thành phần có một chức năng riêng:

 Thiếp bị nhập (input device) : thực hiện thao tác đưa dữ liệu từ thế giới bên ngoài vào, thường là bàn phím và con chuột, nhưng cũng có thể là các loại thiết bị khác mà ta sẽ nói rõ hơn ở những phần sau.

 Thiết vị xử lý : hay đơn vị xử lý trung tâm - CPU thực hiện thao tác xử lý, tính toán các kết quả, điều hành hoạt động tính toán của máy vi tính, có thể xem CPU như một bộ não của con người.

 Thiết bị xuất (Output) thực hiện thao tác gởi thông tin ra ngoài máy vi tính, hầu hết là dùng màn hình máy tính là thiết bị xuất chuẩn, có thể thêm một số khác như máy in, hoa…

 Thiết bị lưu trữ (storage devices) được dùng để cất giữ thông tin. Lưu trữ sơ cấp (primary momery) là bộ nhớ trong của máy tính dùng để lưu các tập lệnh củ chương trình, các thông tin dữ liệu sẵn sàng trong tư thế chuẩn bị làm việc ty theo yêu cầu của CPU. Lưu trữ thứ cấp (secondary storage) là cách lưu trữ đơn thuần với mục đích cất giữ dư liệu, cách này dùng các thiết bị như đĩa cứng, đĩa mềm, CD,..

tự tra mạng tí là ra ấy mà k minh nha

TK:

Câu 1
Xã hội tin học hoá là xã hội maf ở đó tin học và máy tính đóng vai trò không thể thiếu đối với hoạt động xã hôij
mặt trái :an ninh mạng- các hacker dùng mọi thủ đoạn xâm nhập máy chủ các Doanh nghiệp, Công Ty ăn cắp tài liệu, thông tin mật trong kinh doanh....xâm nhập tài khoản cá nhân ở ngân hàng, ăn cắp tiền gửi....Lừa đảo tình & tiền những người nhẹ dạ, cả tin trong thế giới mạng.......

Program HOC24;

var i: byte;

a: array[1..10] of real;

begin

for i:=1 to 10 do begin write('Nhap diem cua ban thu ',i,': '); readln(a[i]); end;

readln

end.