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.

27 tháng 9 2015

Số chính phương chỉ có thể tận cùng là 1; 4; 5; 6; 9

- Các số chính phương tận cùng là 1 ; 4 hoặc 9 thì chữ số hàng chục là chữ số chẵn

số chính phương tận cùng là 5 thì chữ số hàng chục phải bằng 2

Số chính phương tận cùng là 6 thì chữ số hàng chục phải là chữ số lẻ

=> n2 có chữ số hàng chục là số lẻ => n2 tận cùng là 6 => n có tận cùng là 4 hoặc 6

=> n = 14; 24; ...; 94 hoặc 16; 26; 36 ;...96

Vậy có tất cả 18 số n thỏa mãn

26 tháng 8 2016

ko làm đc

6 tháng 11 2016

các số tn nhỏ hơn n là : 0;1;...;n-1 

số số hạng : (n-1-0):1+1=n

vậy có n-1 số tn nhỏ hơn 2 

các số chẵn nhỏ hơn n là : 0;2;...;n-2

số số hạng : (n-2-0):2+1=n:2

vậy có n:2 số chẵn nhỏ hơn n

6 tháng 3 2023

Program HOC24;

var i,n,d: integer;

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

begin

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

for i:=1 to n do read(a[i]); readln;

d:=0;

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

write('Co ',d,' so chan' );

readln

end.

13 tháng 4 2023

# Nhập vào mảng 1 chiều
n = int(input("Nhập số lượng phần tử của mảng: "))
arr = []
for i in range(n):
    arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

# Đếm số lượng số nguyên chẵn trong mảng
count = 0
even_numbers = []
for i in range(n):
    if arr[i] % 2 == 0:
        count += 1
        even_numbers.append(arr[i])

# In kết quả
print("Số lượng số nguyên chẵn trong mảng là:", count)
print("Các số nguyên chẵn trong mảng là:", even_numbers)

17 tháng 8 2021

uses crt;

var n,i,chan,tonchan:integer;

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

begin

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

for i:=1 to n do

begin

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

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.

 

1 tháng 10 2021

Sai roofi

7 tháng 3 2023

 

 

 

7 tháng 3 2023

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;

27 tháng 4 2021

Program Tin_hoc;

Uses crt; 

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap 1 so nguyen duong n: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

Write('A[',i,'] = ');

readln(a[i]);

If a[i] mod 2 = 0 then inc(dem);

End;

Writeln('Day vua nhap la:');

For i:= 1 to n do write(a[i],'  ');writeln;

Writeln('Day so vua nhap co ',dem,' so chan');

readln;

End.

uses crt;

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

i,n,dem: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 

 write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

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

readln;

end.