<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=a.Where(t->t mod 4=0).Count;
if k>0 then Writeln('Кол-во элементов, делящихся на 4, равно ',k)
else Writeln('Таковых нет')
end.
<u>Пример</u>
n= 13
-26 -4 -41 23 8 -14 29 2 38 -9 32 4 12
Кол-во элементов, делящихся на 4, равно 5
как проверить , не превышает ли число 1000, при таком условии ,я без понятия
#include<iostream>
int main()
{
unsigned int a;
std::cin>> a;
std::cout<<a+2-a%2;
}
Для того, чтобы вставить пустую строку нужно нажать клавишу enter.
Этот набор
1 2 4 8 16 32
примеры
63 = 32 + 16 + 8 + 4 + 2 + 1
57 = 32 + 16 + 8 + 1
1 = 1
2 = 2
3 = 2+ 1
19 = 16 + 2 + 1
26 = 16 + 8 + 2