Series13. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0.
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 | #include <stdio.h> int main(void) { int r=1,sum=0; while (r!=0){ printf(">"); scanf("%i", &r); if ((r>0)&&(r%2==0)) sum+=r; } printf("%i\n",sum); return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | # 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; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования
