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.

uses crt;

var n,kt,i,n1,i1:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to trunc(sqrt(n)) do

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' khong the phan tich thanh thua so nguyen to');

if kt=1 then begin

                write(n,'=');

                n1:=n;

                i1:=2;

                repeat

                    while n1 mod i1<>0 do

                      i1:=i1+1;

                    write(i1);

                    n1:=n1 div i1;

                    if n1>1 then write('*');

                until n1=1;

             end;

readln;

end.

30 tháng 6 2021

var n,k:int64;
    i,d:longint;
begin
        readln(n);
        k:=trunc(Sqrt(n));
        i:=2;
        res:=1;
        while i<=k do
        begin
                d:=0;
                while n mod i=0 do
                begin
                        write(i);
                        n:=n div i;
                        if n>1 then write('*');
                        inc(d);
                end;
                k:=trunc(sqrt(N));
                i:=i+1;
        end;
        if n>1 then write(n);
        readln;
end.

13 tháng 6 2023

c++:

#include <iostream>

using namespace std;

int main(){

int y;

cin >> y;

int i = 1;

int luythua = 1;

while(i<=y){

luythua = luythua *i;

i = i+1;

}

cout << luythua;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

freopen("checknto.inp","r",stdin);

freopen("checknto.out","w",stdout);

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"YES";

else cout<<"NO";

return 0;

}

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.

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé

Câu 1: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=1;

for i:=1 to n do

 s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

QT
Quoc Tran Anh Le
Giáo viên
9 tháng 11 2023

– Sử dụng hàm sum để tính tổng và điểm trung bình.

- Gọi hàm Python thực hiện sắp xếp thứ tự tăng dần (không giảm); sau khi sắp xếp thì tìm được ngay max, min.

- Dãy số đã sắp thứ tự tăng dần (không giảm) nên có thể dùng hàm bisect left (trong mô đun bisect) tìm được các vị trí phân chia dãy điểm thành 4 đoạn điểm: Chưa đạt, Đạt, Khá và Tốt. Từ đó tính được số lượng điểm theo từng mức xếp hạng.