<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadInteger('Введите число:')).IsEven.Println
end.
<u>Примеры</u>
Введите число: 12341
False
Введите число: -6345238
True
В текстовом редактор больше возможностей, можно менять стиль,тему,есть вставка,абзацы,картинки. Поэтому он называется редактор т.е редактирует
К=8, потому, что каждое следующее число делится на 2.
Ответ: 12112
....................................
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.