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.

19 tháng 3 2022
Nếu n=0 hoặc n=1 thì ta có kết quả là 1.Nếu n>1 thì ta sẽ dùng công thức truy hồi để tính (n-1)! rồi sau đó nhân với n.

 

uses crt;

var i,n,m,j,kt:integer;

begin

clrscr;

readln(n,m);

for i:=n to m do

begin

kt:=0;

if (i>2) then begin

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.

7 tháng 2 2023

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
        writeln('nhap n:');readln(n);
        while n>0 do begin
                        s:=n mod 10;
                        t:=t+s;
                        if max<s then max:=s;
                        dem:=dem+1;
                        n:=n div 10;
                     end;
        writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
        readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk

17 tháng 4 2022

Program HOC24;

var  d,N,i: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then d:=d+1;

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.

3 tháng 4 2022

Giúp em với ạ mai em thi cuối học kì rồi ạ 

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  write(a[i],',');

tb:=0;

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Trung binh cong cac phan tu o vi tri chan la: ',tb/dem:4:2);

dem1:=0;

for i:=1 to n do 

 if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do

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

if kt=0 then inc(dem1);

end;

writeln('So so nguyen to la: ',dem1);

readln;

end.

4 tháng 4 2022

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

4 tháng 4 2022

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t1=0;

t2=1;

for (i=1; i<=n; i++)

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}