Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Khang Ngo
Xem chi tiết
Khang Ngo
20 tháng 4 2023 lúc 21:18

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S1 =s/n

Print(s1)

Hiền Nguyễn
Xem chi tiết
Hiền Nguyễn
24 tháng 3 2021 lúc 9:08

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:16

Câu 2: 

uses crt;

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

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

Khang Ngo
Xem chi tiết
Khang Ngo
20 tháng 4 2023 lúc 21:23

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

Min=a[0]

If min>a[i]:min=a[i]

Print(‘gia tri nho nhat’,min)

NTKL
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 1 2022 lúc 10:13

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

string st;

int d;

int main()

{

getline(cin,st);

d=st.length();

cout<<d;

return 0;

}

Kiều Vũ Linh
19 tháng 1 2022 lúc 8:59

Bài 1:

Var so,i,n,dem:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

Mai Phương Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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] mod 2<>0 then write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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] mod 2=0 then write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:14

Bài 3: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Nguyễn anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2022 lúc 7:09

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

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

cout<<t<<endl;

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

if (a[i]%2==0) cout<<a[i]<<" ";

cout<<endl;

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

if (a[i]%2!=0) cout<<a[i]<<" ";

return 0;

}

Nguyễn minh quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2021 lúc 18:09

uses crt;

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

i,n:integer;

begin

clrscr;

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] mod 2<>0 then write(a[i]:4);

readln;

end.

ひまわり(In my personal...
20 tháng 2 2021 lúc 17:17

#include <stdio.h>

#include <conio.h>

#include <math.h>

int main()

{

int n,i,x[10];

printf("nhap so luong phan tu");

scanf("%d",&n);

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

{

printf("x[%d]",i);

scanf("%d",&x[i]);

}

printf("mang x[i] da nhap vap");

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

{

printf("%2d",x[i]);

} for(i=0;i<n;i++)

{

if(nt(x[i],n)==1)

{

printf("cac so nguyen to co trong mang la %d",x[i]);

}

}

}

int nt(int x[10],int n)

{

int i,j;

int kt;

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

{

kt=1;

 for(j=2;j<x[i];j++)

{

if(x[i]%j==0) kt=0;

}

}

if(kt)

{

return 1;

}

else

{

return 0;

}

}

Hưng Quốc
Xem chi tiết
HT.Phong (9A5)
31 tháng 3 2023 lúc 16:51

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.

láobốlaos
31 tháng 3 2023 lúc 16:54

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.

Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:31

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

Lê Nguyễn Ánh Nguyệt
Xem chi tiết
Minh Lệ
25 tháng 4 2023 lúc 19:55

Program HOC24;

var i,n: integer;

t1,t2: longint;

begin

write('Nhap so phan tu cua day: '); readln(a[i]);

for i:=1 to n do

begin

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

end;

t1:=0; t2:=0;

for i:=1 to n do if a[i] mod 2=0 then t1:=t1+a[i] else t2:=t2+a[i];

writeln('Tong cac so chan la: ',t1);

write('Tong cac so le la: ',t2);

readln

end.