1. Nhập vào một số n (5

NT

Nguyễn Thị Hằng

17 tháng 3 2018

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán a. In ra các phần tử là số nguyên tố của dãy b. Tính ƯCLN của tất cả các phần tử của dãy c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann d. Sắp xếp và in ra dãy sau sắp xếp 2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN 3. Viết chương...

Đọc tiếp

#Tin học lớp 8

1

ND

Nguyễn Đạo

23 tháng 3 2018

dài thế thì ai rảnh mà làm

Đúng(0)

SF

Selena Flynn

8 tháng 3 2022

Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

8 tháng 3 2022

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;

}

Đúng(0)

PL

Phạm Linh

2 tháng 5 2023

Viết chương trình nhập vào một dãy số a có n phần tử nhập vào từ bàn phím in ra màn hình các phần tử lớn hơn 5 của dãy số vừa nhập vào?

#Tin học lớp 8

1

ML

Minh Lệ

2 tháng 5 2023

Program HOC24;

var i,n: integer;

a: array[1..1000] of 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 a[i]>5 then write(a[i],' ');

readln

end.

Đúng(3)

NN

Nguyen Nhi

25 tháng 2 2021

Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)b) Tính tổng các phần tử chia hết cho 3c)...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

25 tháng 2 2021

Câu 1:

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

Câu 2:

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do

write(a[i]:4);

readln;

end.

Câu 3:

uses crt;

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

i,n,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=15);

for i:=1 to n do

begin

repeat

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

until a[i]<=100;

end;

writeln('Mang da nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t);

writeln('Cac so chan o vi tri le trong day la: ');

for i:=1 to n do

if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);

readln;

end.

Đúng(1)

NL

Nguyễn Lê

19 tháng 2 2023

Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.Giúp mik 2 bài này trong tối nay vs ạ...

Đọc tiếp

#Tin học lớp 11

3

ML

Minh Lệ

19 tháng 2 2023

Bài 1:

Program HOC24;

var i,n,d : byte;

t: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' phan tu la boi cua 3 va 5');

write('Tong la: ',t);

readln

end.

Đúng(2)

ML

Minh Lệ

19 tháng 2 2023

Bài 2:

Program HOC24;

var i,n,k : byte;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

write('Nhap k: '); readln(k);

for i:=1 to n do if a[i]=k then d:=d+1;

writeln('Co ',d,' phan tu bang ',k);

Write('Cac chi so do la: ');

for i:=1 to n do if a[i]=k then write(i,' ');

readln

end.

Đúng(2)

HQ

Hưng Quốc

31 tháng 3 2023

1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.

#Tin học lớp 8

3

H9

HT.Phong (9A5)

CTVHS

31 tháng 3 2023

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Đúng(3)

L

láobốlaos

31 tháng 3 2023

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Đúng(0)

PH

phạm hương trà

26 tháng 11 2016

a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N

VD N=5 thì in ra 5!=120

b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông

VD N=10 thì tổng số chẵn là 30

c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố

#Tin học lớp 11

1

CC

Công Chúa Sakura

4 tháng 1 2017

a)

uses crt;

VAR

n, d, i: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

d : = 1;

For i: = 1 to n do

d: = d*i;

Writeln ('d=',d);

Readln;

END.

c)

uses crt;

VAR

n, i, demuoc: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

demuoc: = 0;

For i: = 1 to n do

If n mod i = 0 then

demuoc : = demuoc + 1;

If demuoc = 2 then

Writeln ('n la so nguyen to')

ELSE

Writeln ('n khong phai la so nguyen to');

Readln ;

END.

Còn phần b bạn tự nghĩ nha!

Chúc bạn học tốt!

Đúng(0)

NH

NGUYỄN HUỲNH NHƯ Ý

29 tháng 9 2023

bài 1 :

nhập vào số nguyên n . kiểm tra n là số chẳng hay số lẻ

bài 2:

nhập vào số n . kiểm tra n có phải là số chính phương không . số chính phương bằng bình phương của một số

#Tin học lớp 8

2

D

datcoder

CTVVIP

4 tháng 10 2023

Bài 1:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

write('Nhap N: '); readln(n);

if n mod 2 = 0 then write(n,' la so chan') else write(n,' la so le');

readln;

end.

Bài 2:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

write('Nhap N: '); readln(n);

if n = sqr(trunc(sqrt(n))) then write(n,' la so chinh phuong') else (n,' khong phai la so chinh phuong');

readln;

end.

Đúng(1)

LX

le xuan quy

29 tháng 9 2023

void solve(int n) { if(n%2 == 0) { cout << "CHAN'\n"; } else cout << "LE\n"; // kiem tra chinh phuong int i = 2; while(i*i <= n) { if(i*i == n) { cout << "LA SO CHINH PHUONG\n"; return; } } cout << "KHONG PHAI LA SO CHINH PHUONG'\n"; }

Đúng(0)

HL

Hoan Lý

9 tháng 5 2023

Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy

#Tin học lớp 8

2

KV

Kiều Vũ Linh

10 tháng 5 2023

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

Đúng(1)

KV

Kiều Vũ Linh

10 tháng 5 2023

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

Đúng(1)

TT

thu thu

17 tháng 4 2023

cho tổng s= 1-2-3+4+5-6-7+8+9 -10-11 +12... n. viết chương trình nhập vào một số n tính tổng từ 1 đến n pascal

#Tin học lớp 11

0

LD

Linh Đan

17 tháng 9 2021

1. Viết chương trình nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n. 2. Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.

#Tin học lớp 9

2

VD

Võ Đức Dũng

17 tháng 9 2021

câu 1

Program Nguyen_to;

Var n,i:integer;

Function NT(n:integer):Boolean;

Var ok: Boolean;

i: integer;

Begin ok:=true;

for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;

if n < 2 then NT:=false else NT:=ok;

End;

Begin Write('Nhap n: ');

Readln(n); i:=n;

Repeat i:=i+1;

Until NT(i);

Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);

Readln End.

Đúng(1)

VD

Võ Đức Dũng

17 tháng 9 2021

câu 2

uses crt;

const so: set of char=['0','1','2','3','4','5','6','7','8','9'];

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

st,b:string;

c,l,i,n,j:integer;

s, Max: integer;

begin clrscr;

write('Nhap xau:');

readln(st);

l:=length(st);

i:=1;

n:=0;

repeat if (st[i] in so) then begin b:='';

repeat b:=b+st[i];

inc(i);

until (not(st[i] in so)) or (i>l);

inc(n);

val(b,a[n],c);

end;

inc(i);

until i>l;

Max:=a[1];

for i:=2 to n do If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

readln;

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP