<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>
Ответ:
Объяснение:
1. Звуковой, графической, текстовой.
3. логическая связка для поиска по любому из слов
Вот, добавьте текст сего отсюда как новый макрос в документ:)
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.
F = true. А вообще, это можно набрать в паскале и проверить)