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.

6 tháng 1 2018

program nts;
uses crt;
var a: array[-10000..10000] of integer;
n,i,s:longint;
begin
clrscr;
write('nhap so cac so nguyen:'); readln(n);
s:=1;
for i:=1 to n do
begin
write('nhap so thu ',i,'='); readln(a[i]); s:=s*a[i];
end;
write('tich cac so da nhap la: ',s);
readln;
end.

nếu tích n số đầu tiên thì sẽ khác nhé

5 tháng 1 2018

uses crt;

var n,i,d,k:integer;

begin

clrscr;

writeln('nhap vao so n');readln(n);

for i:=1 to n do

begin

if i mod 2=0 then d:=d+1;

if i mod 2=1 then k:=k+1;end;

writeln('so cac so chan la:',d:4);

writeln('so cac so le la:',k:4);readln;end.

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

10 tháng 5 2023

Câu 58:

Var n:integer;

Begin

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

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

10 tháng 5 2023

Câu 61:

Var n:integer;

Begin

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

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

uses crt;

var n,i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

repeat

readln(n);

if n mod 2=0 then t1:=t1+n

else t2:=t2+n;

until n=0;

writeln(t1,' ',t2);

readln;

end.

10 tháng 3 2022

???

10 tháng 3 2022

???

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s*=i;

cout<<s;

return 0;

}