1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,20,40); a.Println;
Writeln('S=',a.Where(x->x mod 8=0).Sum)
end.
<u>Пример</u>
24 23 35 40 22
S=64
Var
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln('Suma: ',s);
end.
1. 24
2. Данный массив не может существовать, и данная инициализация вызовет ошибку, поскольку масив может задаваться только позитивными числами
3. Она выведет на экран 0 -1 -4 и закончит работу
Ввод: a ^ b ^ c С/П.
П0 -> П1 -> П2 ИП1 ИП0 + + 2 / П3 ИП0 - ИП3 ИП1 - ИП3 ИП2 - * * ИП3 / пи * С/П