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.

17 tháng 8 2020

Vâng. Đúng rồi ạ

17 tháng 8 2020

Viết thuật toán ấy ạ

1 tháng 9 2019

Lời giải :

Mình làm ngôn ngữ Pascal nhé.

program hotrotinhoc;

var a,n,p : longint;

s: real;

begin

readln(a);

readln(n);

readln(p);

s:=exp(n*ln(a));

s:=s/100;

s:=s*p;

write(s:1:2);

readln

end.

1 tháng 9 2019

K nhất thiết phải là C++ đâu ạ

1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%5==0) dem++;

}

cout<<dem;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

27 tháng 12 2016

Bài 1.

Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)

Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)

Bước 3. \(i\leftarrow i+1\)

Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.

4.2 \(a_i\ge0\) thì quay lại bước 3

4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3

8 tháng 10 2018

S là gì

27 tháng 9 2019

Lời giải:

program hotrotinhoc;

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

i,n: integer;

function dem(x: integer): integer;

var d,j: integer;

begin

d:=0;

for j:=1 to x do if x mod j=0 then inc(d);

dem:=d;

end;

begin

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

for i:=1 to n do

begin

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

end;

max:=0;

for i:=1 to n do

if u(a[i])>u(max) then max:=a[i];

write(max);

readln

end.

27 tháng 9 2019

Cảm ơn bạn nhưng bạn có thể viết dưới dạng thuật toán theo từng bước được không ( cảm ơn trước 1 lần nữa )

10 tháng 1 2022

Bạn @Lê Ngọc Diệp mình chẳng làm gì sai cả nên đừng có nói thế

10 tháng 1 2022

báo cáo

24 tháng 10 2018

var

n,k,d,i,s:integer;

begin

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

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

writeln(k,' xuat hien ',d,' lan trong mang ');

for i:= 1 to n do

if a[i] mod 2 = 0 then s:= s+a[i];

write(' tong so chan trong mang la :',s);

readln;

end.

CHÚC BẠN HỌC TỐT :D

24 tháng 10 2018

ôi chết dưới phần nhập n bạn thêm :

write(' nhap k: ');

readln(k);

CHO mình nha