<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:int64;
Read(a);
(a = 2 ? -1 : (a * a + 1) div 2).Println
end.
<h3>Пример</h3><h3>13</h3><h3>85 </h3>
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива B:');
for i:=1 to n do
readln(b[i]);
writeln('исходный массив B:');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма элементов =', s);
readln
end.
1) нарисовать 1 большой круг
2) отступив 5 миллиметров и сделать второй круг
3) примерно по середине разделить воображаемой линией
4) отступив от линии одинаковое пространство, нарисовать маленькие кружки
5) раскрасить
<span>Цифровая камера сохраняет изображение в цифровом формате на носителях с помощью матрицы. Если раньше фотография получалась из-за фотохимических процессов, то сейчас пленку заменяет карта памяти - матрица заполняет значение каждого элемента-пиксела. Таким образом получается растовое изображение.</span>
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
