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 a:array[1..100]of integer;

i,n:integer;

s:real;

begin

clrscr;

repeat

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

until n>0;

for i:=1 to n do 

begin

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

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln(s:0:0);

readln;

end.

5 tháng 3 2021

EM không cần code ạ. Anh ghi từng bước được không ạ?

25 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if ((n>10) and (n<70))

{

t=0;

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

if (i%2==0) t=t+i;

cout<<t;

}

else cout<<"Nhap lai";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,dem=0;

cin>>n;

for (int i=n; i>=1; i--)

if (n%i==0)

{

cout<<i<<" ";

dem++;

if (dem==3) break;

}

cout<<endl;

cout<<n*1<<" "<<n*2<<" "<<n*3<<endl;

}

3 tháng 3 2021
answer-reply-imageĐây là bài làm tương tự nhé!            
D
datcoder
CTVVIP
26 tháng 3

#include <stdio.h>

int main(){

    int n;

    scanf("%d",&n);

    long t=0; int i,j;

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

        int c=0;

        for (j=2; j<i; j++)

            if (i%j==0) c++;

        if (c==0) t=t+i;

        }

printf("%d",t);

return 0;

}

D
datcoder
CTVVIP
9 tháng 1

Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.

14 tháng 6 2020

Trường Chuyên Lê hồng phong á

14 tháng 6 2020

Uầy thích nhá :3 Trường tôi vẫn lèm bèm pascal đây

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}