По разделам



Задача Series 13


Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0.

Код (C/C++)

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  ifstream in ("Series13.txt");
  int a;
  int S = 0;
  cout << "Дан набор ненулевых чисел: " ;
  while (in >> a && a != 0) {
  	cout << a << " " ;
  	if (a > 0 && a%2 == 0) {
  		S += a;
  	}
  }
  cout << endl;
  if (S == 0) cout << 0;
  else   cout << "Cумма всех положительных четных чисел из данного набора = " << S << endl;   
  
  in.close ();
  
  system ("pause");
  return 0;
}

Код (Python)

import random

x = random.randrange(1,10)
print(x,end='; ')
k = 0
s = 0
if x > 0 and x % 2 == 0:
        s += x
while x != 0:
    x = random.randrange(-5,6)
    print(x,end='; ')
    if x > 0 and x % 2 == 0:
        s += x
    k += 1
    
print()
print("Amount:",k)
print("Sum of positive even numbers:",s)
									

Код (Pascal)

program Series13;
var
  i,R:Longint;
begin
R:=1;
i:=0;
  while(R<>0) do
   begin
     write('Введите число из набора: ');
     Readln(R);
     if (R>0) and odd(r)=False then i:=i+R;
   end;
  Writeln(i);
end.
									




Series. Абрамян
Series 1 Просмотров: 14
Series 2 Просмотров: 7
Series 3 Просмотров: 12
Series 4 Просмотров: 17
Series 5 Просмотров: 10
Series 6 Просмотров: 7
Series 7 Просмотров: 8
Series 8 Просмотров: 8
Series 9 Просмотров: 10
Series 10 Просмотров: 14
Series 11 Просмотров: 9
Series 12 Просмотров: 8
Series 13 Просмотров: 10
Series 14 Просмотров: 8
Series 15 Просмотров: 10
Series 16 Просмотров: 17
Series 17 Просмотров: 18
Series 18 Просмотров: 8
Series 19 Просмотров: 15
Series 20 Просмотров: 6
Series 21 Просмотров: 10
Series 22 Просмотров: 12
Series 23 Просмотров: 8
Series 24 Просмотров: 11
Series 25 Просмотров: 18
Series 26 Просмотров: 9
Series 27 Просмотров: 10
Series 28 Просмотров: 10
Series 29 Просмотров: 6
Series 30 Просмотров: 5
Series 31 Просмотров: 7
Series 32 Просмотров: 7
Series 33 Просмотров: 7
Series 34 Просмотров: 13
Series 35 Просмотров: 8
Series 36 Просмотров: 6
Series 37 Просмотров: 7
Series 38 Просмотров: 9
Series 39 Просмотров: 7
Series 40 Просмотров: 7

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться