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.

9 tháng 2 2022

Tham khảo:

* Lặp tiến :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := 1 to n do P := P * i;

writeln(n,'! = ', P);

readln

end.

* Lặp lùi :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := n downto 1 do P := P * i;

writeln(n,'! = ', P);

readln

end.

28 tháng 12 2020

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

28 tháng 12 2020

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

17 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[4],n,x;

int main()

{

cin>>n>>x;

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

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

if (a[i]==x)

{

cout<<"YES";

break;

}

cout<<"NO";

return 0;

}

27 tháng 12 2021

Chọn B

20 tháng 10 2021

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,x,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

4 tháng 5 2023

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

 

22 tháng 11 2021

dạng liệt kê:

B1: Nhập số nguyên dương N

B2: Nếu N=1, thông báo N ko phải số nguyên tố, kết thúc

B3: Nếu N ∈ (1;4), thông báo N là số nguyên tố, kết thúc

B4: i <-- 2

B5: Nếu i>[√N] thông báo N là số nguyên tố, kết thúc

B6: Nếu N chia hết cho i thì thông báo N ko phải là số nguyên tố, kết thúc

B7: i <-- i+1 rồi quay lại bước 5.

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,ln;

int main()

{

cin>>n;

ln=LLONG_MIN;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}