Даны две последовательности целых чисел: a1, a2, a8 и b1, b2, b8. найти количество четных чисел в первой из них и количество нечетных во второй. (определить функцию, позволяющую распознавать четные на с++)
1 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 2 = 0 then Writeln('Число чётное') else Writeln('Число не чётное'); readln; end.
2 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 3 = 0 then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); readln; end.
3 program z; var i: array[1..6] of byte; x:byte; begin for x:=1 to 6 do
begin Writeln('Введите ', x,' цифру из 6 '); Read(i[x]); end; if (i[1]+i[2]) = (i[4]+i[5]+i[6]) then Writeln('Билет счастливый') else Writeln('Билет не счастливый'); Readln; end.
5))) program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 6 = 0 then Writeln('Число делится на 6') else Writeln('Число не делится на 6'); readln; end. 6 program z; var a,b:integer; begin Writeln('Введите число A'); Readln(a); Writeln('Введите число B'); Readln(b); if b mod a = 0 then Writeln('Число А делится нацело на число В') else Writeln('Число А не делится нацело на число B'); Readln; end.
1 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 2 = 0 then Writeln('Число чётное') else Writeln('Число не чётное'); readln; end.
2 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 3 = 0 then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); readln; end.
3 program z; var i: array[1..6] of byte; x:byte; begin for x:=1 to 6 do
begin Writeln('Введите ', x,' цифру из 6 '); Read(i[x]); end; if (i[1]+i[2]) = (i[4]+i[5]+i[6]) then Writeln('Билет счастливый') else Writeln('Билет не счастливый'); Readln; end.
5))) program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 6 = 0 then Writeln('Число делится на 6') else Writeln('Число не делится на 6'); readln; end. 6 program z; var a,b:integer; begin Writeln('Введите число A'); Readln(a); Writeln('Введите число B'); Readln(b); if b mod a = 0 then Writeln('Число А делится нацело на число В') else Writeln('Число А не делится нацело на число B'); Readln; end.
#include <iostream>
#include <iomanip>
using namespace std;
bool isEven(int n) {
return 1 - abs(n % 2);
}
int main() {
setlocale(LC_ALL, "Russian");
const int k = 8;
int a[k], b[k];
cout << setw(6) << "Ai" << " | " << setw(6) << "Bi" << endl;
cout << "" << endl;
for (int i = 0; i < k; ++i) {
//Заполнение случайными числами (они будут каждый раз одними и теми же, ибо генерируются только 1 раз)
a[i] = rand() % (2 * 25000) - 25000;
b[i] = rand() % (2 * 25000) - 25000;
cout << setw(6) << a[i] << " | " << setw(6) << b[i] << endl;
}
size_t countA = 0, countB = 0;
for (int i = 0; i < k; ++i) {
if (isEven(a[i]))
countA++;
if (!isEven(b[i]))
countB++;
}
cout << endl;
cout << "Количество четных для А: " << countA << endl;
cout << "Количество НЕчетных для B: " << countB << endl;
system("pause");
return 0;
}