<span>вновь созданный слайд размещается
</span><span>3 После текущего слайда. </span>
// Код на паскале
var
a, b: array [1 .. 8] of longint;
i, ans1, ans2: byte;
function check(var x: longint): boolean; // функция проверки числа на четность
begin
if x mod 2 = 0
then check := true
else
check := false;
end;
begin
ans1 := 0;
ans2 := 0;
for i := 1 to 8 do
begin
read(a[i]); //читаем число а_і
if check(a[i]) then //если четное, то ...
inc(ans1); //увеличиваем ответ_1 на 1
end;
for i := 1 to 8 do
begin
read(b[i]); //читаем число b_i
if not check(b[i]) then // если нечетное, то ...
inc(ans2); // увеличиваем ответ_2 на 1
end;
writeln('Количество четных чисел в первой последовательности = ', ans1);
writeln('Количество нечетных чисел во второй последовательности = ', ans2);
end.
#include <iostream>
#include <string>
#include <vector>
#include <algorithm>
bool Palindrome(const std::string& str)
{
std::string temp = str;
std::reverse(temp.begin(), temp.end());
return str == temp;
}
void Print(const std::vector<std::string>& vec)
{
for (const auto &val : vec)
{
std::cout << val << " ";
}
}
int main()
{
std::vector<std::string> palindromes;
std::string str;
std::cin >> str;
while (str != ".")
{
if (Palindrome(str))
{
palindromes.push_back(str);
}
std::cin >> str;
}
Print(palindromes);
return 0;
}
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := ReadSeqInteger('Введите последовательность:', n)
.Where(p -> p mod 8 = 0)
.DefaultIfEmpty
.Average;
if m > 0 then
Writeln(m)
else
Writeln('Элементов, кратных 8, нет')
end.
ко второй ссылке будет точно шесть путей