|
1 / 1 / 1 Регистрация: 27.12.2012 Сообщений: 14 |
|
|
1 |
|
Найти количество нечетных элементов массива29.12.2012, 00:31. Показов 45505. Ответов 4
Найти количество нечетных элементов массива.
0 |
|
Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274 |
||||
|
29.12.2012, 00:37 |
2 |
|||
1 |
|
Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628 |
||||
|
29.12.2012, 09:02 |
3 |
|||
|
Решениеоно ищет четные вот для нечетных
4 |
Сообщение было отмечено как решение
|
25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274 |
|
|
31.12.2012, 16:34 |
4 |
|
Taftis,
0 |
|
0 / 0 / 0 Регистрация: 17.04.2021 Сообщений: 5 |
|
|
18.04.2021, 17:08 |
5 |
|
а можете пожалуйста на С++ код из Pascal перевести?
0 |
Узнай цену своей работы
Формулировка задачи:
Не могу решить задачу “Сколько нечетных среди n введенных”.
Вот сама задача: [текст на картинках не допускается]
Код к задаче: «Определить, сколько нечетных среди n введенных»
textual
Листинг программы
program ex1;
var i,n,a,k:integer;
begin
write('сколько чисел будем вводить ');
readln(n);
for i:=1 to n do
begin
write('введите ',i,' число: ');readln(a);
if (a mod 2<>0) then k:=k+1;
end;
writeln();
writeln('среди введенных чисел ',k,' нечетных');
end.
Посчитать четные и нечетные цифры числа
Просмотров 9.8к. Обновлено 29 октября 2021
- Присвоить переменным-счетчикам четных (even) и нечетных (odd) цифр значение 0.
- Пока введенное число не уменьшится до нуля выполнять нижеследующие действия:
- Если число четное (делится нацело на 2), значит последняя его цифра четная и надо увеличить на 1 переменную even.
- Иначе число нечетное и следует добавить 1 к переменной odd.
- Убрать последнюю цифру числа путем деления числа нацело на 10.
Pascal
посчитать четные и нечетные цифры числа паскаль
var n: word;
even, odd: byte;
begin
readln(n);
even := 0;
odd := 0;
while n > 0 do begin
if n mod 2 = 0 then
even := even + 1
else
odd := odd + 1;
n := n div 10;
end;
writeln('четных ', even);
writeln('нечетных ', odd);
end.
56709
четных 2
нечетных 3
Язык Си
#includemain() {
int n,even,odd;
scanf("%d",&n);
even = 0; // четные
odd = 0; // нечет.
while (n>0) {
if (n%2 == 0) even += 1;
else odd += 1;
n = n/10;
}
printf("четных - %d, нечетных - %dn", even, odd);
}
100238
четных - 4, нечетных - 2
Python
посчитать четные и нечетные цифры числа python(питон)
n = int(input())
even=odd=0
while n>0:
if n%2 == 0:
even += 1
else:
odd += 1
n = n//10
print("четных - %d, нечетных - %d" % (even, odd))
12098
четных - 3, нечетных - 2
КуМир
алг чет_нечет
нач
цел n, even, odd
ввод n
even := 0
odd := 0
нц пока n > 0
если mod(n,2) = 0 то even := even + 1
иначе odd := odd + 1
все
n := div(n,10)
кц
вывод "Четных: ", even, нс
вывод "Нечетных: ", odd
кон
308591
Четных: 2
Нечетных: 4
Basic-256
input n
even=0
odd=0
while n>0
if n%2 = 0 then
even = even + 1
else
odd = odd + 1
endif
n = n10
endwhile
print "Четных " + even
print "Нечетных " + odd
734721
Четных 2
Нечетных 4
Improve Article
Save Article
Like Article
Improve Article
Save Article
Like Article
Given N, the row number of Pascal’s triangle(row starting from 0). Find the count of odd numbers in the N-th row of Pascal’s Triangle.
Prerequisite: Pascal’s Triangle | Count number of 1’s in binary representation of N
Examples:
Input : 11 Output : 8 Input : 20 Output : 4
Approach: It appears the answer is always a power of 2. In fact, the following theorem exists:
THEOREM: The number of odd entries in row N of Pascal’s Triangle is 2 raised to the number of 1’s in the binary expansion of N.
Example: Since 83 = 64 + 16 + 2 + 1 has binary expansion (1010011), then row 83 has pow(2, 4) = 16 odd numbers.
Below is the implementation of the above approach:
C++
#include <bits/stdc++.h>
using namespace std ;
int countSetBits(int n)
{
unsigned int count = 0;
while (n)
{
count += n & 1;
n >>= 1;
}
return count;
}
int countOfOddsPascal(int n)
{
int c = countSetBits(n);
return pow(2, c);
}
int main()
{
int n = 20;
cout << countOfOddsPascal(n) ;
return 0;
}
Java
import java.io.*;
class GFG {
static int countSetBits(int n)
{
long count = 0;
while (n > 0)
{
count += n & 1;
n >>= 1;
}
return (int)count;
}
static int countOfOddsPascal(int n)
{
int c = countSetBits(n);
return (int)Math.pow(2, c);
}
public static void main (String[] args)
{
int n = 20;
System.out.println(
countOfOddsPascal(n));
}
}
Python3
def countSetBits(n):
count =0
while n:
count += n & 1
n >>= 1
return count
def countOfOddPascal(n):
c = countSetBits(n)
return pow(2, c)
n = 20
print(countOfOddPascal(n))
C#
using System;
class GFG {
static int countSetBits(int n)
{
int count = 0;
while (n > 0)
{
count += n & 1;
n >>= 1;
}
return count;
}
static int countOfOddsPascal(int n)
{
int c = countSetBits(n);
return (int)Math.Pow(2, c);
}
public static void Main ()
{
int n = 20;
Console.WriteLine(
countOfOddsPascal(n)) ;
}
}
PHP
<?php
function countSetBits($n)
{
$count = 0;
while ($n)
{
$count += $n & 1;
$n >>= 1;
}
return $count;
}
function countOfOddsPascal($n)
{
$c = countSetBits($n);
return pow(2, $c);
}
$n = 20;
echo countOfOddsPascal($n) ;
?>
Javascript
<script>
function countSetBits(n)
{
let count = 0;
while (n > 0)
{
count += n & 1;
n >>= 1;
}
return count;
}
function countOfOddsPascal(n)
{
let c = countSetBits(n);
return Math.pow(2, c);
}
let n = 20;
document.write(countOfOddsPascal(n)) ;
</script>
Time Complexity: O(L), where L is the length of a binary representation of a given N.
Space Complexity: O(1)
Last Updated :
15 Jun, 2022
Like Article
Save Article
var n,i,k,a:integer;
begin
writeln('введите количество чисел');
readln(n);
a:=0;
for i:=1 to n do begin
writeln('введите ',i:1,'-е число');
readln(a);
if a mod 2<>0 then k:=k+1;
end;
writeln('кол-во нечетных чисел ',k);
readln;
end.
Похожие записи/страницы:
- Ввести с клавиатуры n чисел. Определить количество четных – Pascal(Паскаль)
- Написать программу для наглядного представления подсчета четных и нечетных чисел. В цикле вводить целые числа x . На…
- заполнить файл f целыми числами, полученными с помощью генератора случайных чисел, найти количество удвоенных нечетных…
- Дан одномерный массив из 25 чисел. Найти сумму первых нечетных 11 чисел – Pascal(Паскаль)
- Создать файл abcd.dat, содержащий элементы типа integer. Из компонентов данного файла сформировать массивы четных и…
- Сформировать файл из модулей целых чисел, найти сумму квадратов нечетных чисел – Pascal(Паскаль)
- Написать программу включив подсчет общего количества вводимых чисел, исключая ноль; подсчет четных чисел -…
- Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Символами могут быть буквы латинского…
