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.

30 tháng 7 2020

Hỏi đáp Tin học

8 tháng 4 2022

 

*Đề toán thi hsg lớp 8 

ko giúp đề thi và đề ktra

8 tháng 4 2022

thi ??

HQ
Hà Quang Minh
Giáo viên
21 tháng 9 2023

a) 5 số hạng đầu của dãy số là: 1; 2; 6; 24; 120.

b) \({F_1} = 1,\;{F_2} = 1,\;{F_3} = 2,\;{F_4} = 3,\;{F_5} = 5\;\).

23 tháng 2 2023

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

23 tháng 2 2023

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

28 tháng 5 2021

program Phantichso;
var N, i, m, a:Longint;
    dem: Integer;
    
Begin
    write('Nhap N: ');
    readln(N);
    dem:=0;
    for i:= 1 to N div 2 do
        if (2*N-i*(i+1)) mod (2*(i+1)) = 0 then
        Begin
            a:= (2*N-i*(i+1)) div (2*(i+1));
            inc(dem);
            if (a>0) then
            Begin
                writeln('Cach thu ', dem);
                for m:=a to a+i-1 do
                    write(m, '+');
                    writeln(m+1);
            End;
        End;
End.

29 tháng 5 2021

ko cần liệt kê ra số cách đâu! nhưng cũng cảm ơn bạn!!!!!!hihi

3 tháng 2 2016

bài 1:                                                          20

bài 2:                                                           ?