Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
NT
Thông báo về việc mở cuộc thi Tin Học lần 3-hè năm 2021Được sự đồng ý của thầy Phynit, mình xin được tổ chức cuộc thi Tin Học lần 3-hè năm 2021 nhằm tạo thêm một sân chơi thật bổ ích trong trang web Hoc24.vn1: Đối tượng tham gia: là các bạn học sinh từ lớp 6 trở lên có hiểu biết về ngôn ngữ lập trình Pascal hoặc C++2: Thể lệ và luật thi:-Mỗi bài thi sẽ có tối đa 20 điểm, trong mỗi vòng thi chỉ được sử dụng 1 tài khoản duy nhất-Có 3 vòng thi+Vòng 1-Vòng sơ loại: Dự kiến diễn ra từ 8h ngày 8/7/202...
Đọc tiếp
Xem chi tiết
Lớp 10 Tin học Một số khái niệm cơ bản của tin học

Khách
 
NT
5 tháng 7 2021 lúc 23:54

Các bạn ơi, từ giờ đến khi bắt đầu cuộc thi còn 3 ngày nữa. Mong các bạn sẽ chuẩn bị thật tốt cho cuộc thi. Mình biết rằng tuy thời gian khá gấp những mình vẫn hy vọng rằng các bạn sẽ chuẩn bị thật tốt để đạt được thành tích cao nhất trong cuộc thi này!

Xin chúc tất cả các bạn may mắn!

Bình luận (0)
LD
6 tháng 7 2021 lúc 0:08

Ghê quá các pro tin=)))...Mình ủng hộ nhưng mình rút luiii nha=))

Bình luận (0)
QL
6 tháng 7 2021 lúc 0:31

Một cuộc thi Tin học, rất đáng được mong chờ đây. Chúc cuộc thi thành công tốt đẹp!

Bình luận (5)
Xem thêm câu trả lời
TP
Cửa hàng của An là một cửa hàng quái đản. Khi thanh toán tiền, An không bao giờ chấp nhận những đồng tiền giống nhau! Tức là nói, nếu mua một cục gôm 2 đồng, thì phải trả đúng 2 đồng, chứ không thể đưa 2 tờ 1 đồng. An nghĩ như thế là không lịch sự, và những người như thế An sẽ không bán!Nam là một khách quen của An. Nam hiện có n tờ tiền, mỗi tờ tiền đều có giá trị khác nhau! Theo bạn nghĩ, Nam không thể mua món đồ có giá trị nhỏ nhất là bao nhiêu?Dữ liệu nhập: gồm 2 dòng, dòng thứ nhất là 1 số...
Đọc tiếp
Xem chi tiết
Lớp 9 Tin học Đa phương tiện

Khách
 
DS
25 tháng 6 2021 lúc 23:18

const fi='test.inp'
        fo='test.out'
var
f:text;
n,i,j,t:longint;
a:array[1..100] of longint;
b:array[1..1000000000] of boolean;
procedure ip;
 begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        for i:= 1 to  n do
                read(f,a[i]);
        close(f);
 end;
procedure out;
 begin
        assign(f,fo);
        rewrite(f);
        for i:= 1 to n do
                begin
                b[a[i]]:=true;
                t:=a[i];
                for j:= i+1 to n do
                        begin
                             b[a[j]] := true;
                             b[a[i]+a[j]]:= true;
                             t:=t+a[j];
                             b[t]:=true;
                        end;
                end;
        t:=1;
        while b[t] = true do
                inc(t);
        write(f,t);
        close(f);
 end;
BEGIN
ip;
out;
END.

Bình luận (1)
QL
[CUỘC THI TRÍ TUỆ VICE]Xem thêm tại: Cuộc thi Trí tuệ VICE | Facebook*Trả lời đúng và hay sẽ được nhận 1-2GP/câu trả lời nha ^^-----------------------------------------------------------[Tin học.C499 _ 21.3.2021][Tin học.C500 _ 21.3.2021]----------------------------------------------------------Xin cảm ơn HHM Academy đã cấp cho dự án và trang quyền để đăng những câu hỏi này. Chi tiết câu hỏi và tìm hiểu thêm thông tin về tin học và lập trình, xem tại: Hỏi đáp | Diễn đàn hỏi đáp lập trình.
Đọc tiếp
Xem chi tiết
Lớp 12 Tin học Ôn tập chương Cấu trúc và bảo mật các hệ cơ sở dữ...

Khách
 
OK

viết chương trình nhập vào 1 số nguyên dương N. Xét xem N có là tổng của nhiều số nguyên dương liên tiếp ko.

Xem chi tiết
Lớp 8 Tin học Lập trình đơn giản

Khách
 
ND
22 tháng 3 2023 lúc 17:01

python

n = int(input("Nhập số nguyên dương N: "))
found = False

for i in range(1, n//2+1):
    sum = i
    j = i + 1
    while sum < n:
        sum += j
        j += 1
    if sum == n:
        found = True
        start = i
        end = j - 1
        break

if found:
    print(n, "có tổng của nhiều số nguyên dương liên tiếp:")
    for k in range(start, end+1):
        print(k, end=" ")
else:
    print(n, "không có tổng của nhiều số nguyên dương liên tiếp.")

Bình luận (0)
TP

Viết chương trình tính tổng và giải thích cách tìm công thức tổng quát của bài toán:

\(S=\sqrt{1+\sqrt{2+....+\sqrt{n-1+\sqrt{n}}}}\) vơi nhập từ bàn phím.

(*Kiến thức mới: SQRT(x) :\(\sqrt{x}\))

Xem chi tiết
Lớp 9 Tin học Đa phương tiện

Khách
 
HN
24 tháng 7 2018 lúc 9:11

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

write('Sai tự chịu: ',S);

readln;

end.

Bình luận (3)
HN
24 tháng 7 2018 lúc 9:21

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

writeln('Sai tự chịu: ',S);

readln;

end.

Bình luận (10)
TH
27 tháng 7 2018 lúc 8:55

Trong MSWLOGO:

To tinhtoan :n
CS
make "A 0
FOR [i :n 1 -1][Make "A :A+sqrt(:i+:A)]
RT 90 LABEL (List "Tong "la: :A)
end

Mọi thắc mắc xin gửi về tổng đài: 1900, 1 ko ko có

Bình luận (0)
Xem thêm câu trả lời
H24

Tìm và sửa tất cả các lỗi sai trong chương trình sau :

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Xem chi tiết
Lớp 8 Tin học Bài 3. Chương trình máy tính và dữ liệu

Khách
 
HT
28 tháng 9 2016 lúc 22:13

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

Bình luận (8)
ND
1 tháng 10 2016 lúc 21:26

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

Bình luận (0)
LK
11 tháng 10 2016 lúc 23:05

sai tên

 

Bình luận (0)
Xem thêm câu trả lời