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
Mã Nhân
Xem chi tiết
Bùi Thị Thanh Tâm
15 tháng 10 2024 lúc 18:39

chắc là 35,53 ; 57,75 ; 79,97 .

 

Hải Hà
Xem chi tiết
my trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 8 2021 lúc 19:15

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem:=dem+1;

if max<a[i] then max:=a[i];

end;

if dem=0 then writeln('Trong day khong co so chan')

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then

begin  

inc(dem1);

if min>a[i] then min:=a[i];

end;

if dem1=0 then writeln('Trong day khong co so le')

else writeln('So le nho nhat la: ',min);

readln;

end. 

Đỗ trung học
Xem chi tiết
Khavid Ngô
15 tháng 3 2021 lúc 20:51

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

const fi='dl.pas'

fo='qk.pas'

var f1,f2:text;

i,n,dem,t,dem1,dem2,kt,j:integer;

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

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

for i:=1 to n do 

  if (a[i] mod 2<>0) and (a[i] mod 7=0) then inc(dem);

t:=0;

for i:=1 to n do

  if (10<=a[i]) and (a[i]<=30) then t:=t+a[i];

dem1:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 2<>0) then inc(dem1);

dem2:=0;

for i:=1 to n do 

  if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem2);

end;

writeln(f2,'So phan tu le chia het cho 7 la: ',dem);

writeln(f2,'Tong cac phan tu thuoc [10,30] la: ',t);

writeln(f2,'So cac phan tu am le la: ',dem1);

writeln(f2,'So phan tu la so nguyen to la: ',dem2);

close(f1);

close(f2);

end.

Nguyễn Thái Phương Thảo
Xem chi tiết
Hải Hà
Xem chi tiết
Phía sau một cô gái
6 tháng 4 2023 lúc 20:41

program Dem;

var

      n, i, count: integer;

      arr: array[1..100] of integer;

begin

      writeln('Nhap vao so n: ');

      readln(n);

      writeln('Nhap vao day so: ');

      for i := 1 to n do

      begin

            readln(arr[i]);

      end;

      count := 0;

      for i := 1 to n do

      begin

            if(arr[i] mod 2 = 1) then

            begin

                  count := count + 1;

                  write(arr[i], ' ');

            end;

      end;

      writeln();

      writeln('Tong so phan tu la so nguyen le: ', count);

      readln;

end.

Danh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 7:23

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

Đỗ Mai Huệ
Xem chi tiết
doanquynh
9 tháng 9 2015 lúc 14:53

phần lẻ là j

phần nguyên là j

nguyen hai anh
14 tháng 8 2018 lúc 8:47

toan nay la tu trong sach nang cao ra.hihi dung minh dang hoc quyen nay hehe

nguyen hai anh
14 tháng 8 2018 lúc 9:00

minh cau 1 nhe.chi biet lam cau day thoi.

a phan nguyen la -3 phan le la 0.b nguyen 6 phan le 0,1.c nguyen la -2 le la 4/5.d 0va1/8.moi nguoi h dung cho minh nha

Nguyễn Thị Hà Linh
Xem chi tiết