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.

Câu 1: C

Câu 2: B

Câu 3:C

Câu 4: A

Câu 5:B

Câu 6: C

Câu 7: B

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Câu 8: B

Câu 9: A

Câu 10: A

Câu 11: B

Câu 12: C

Câu 13: B

Câu 14: D

Câu 15: A

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n,dem;

int main()

{

cin>>n;

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

dem=0;

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

if (a[i]<0) dem++;

cout<<dem;

return 0;

}

19 tháng 10 2021

lỗi

uses crt;

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

i,n,m,j:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do 

  for j:=1 to m do 

  readln(a[i,j]);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long i,t,dem;

int main()

{

dem=0;

t=0;

for (i=0; i<=10000; i++)

if (i%12==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

14 tháng 12 2020

Bạn ơi, Pascal ko hỗ trợ di chuyển bằng chuột máy tính(trừ khi dùng Graph, nhưng mình đoán 99% các mod trên đây ko ai biết dùng Graph đâu)

Nếu dùng WASD thì có thể, nhưng nếu vậy thì bài này nên đưa lên bài lớp 11 thì hơn

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if (n mod i=0) and (i%2=1) then write(i:4);

readln;

end.