Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
73 символа * 1 байт (вес одного) = 73 байта.
Либо 146, так как неизвестно в какой кодировке было записано высказывание.
(-^〇^-)(=^▽^=)\(•ㅂ•)/♥(*¯︶¯*)ヘ( ̄ω ̄ヘ) ♪
вот если это перевести в пример получится ¬a∨¬b=f
Сама процедура занимает 5 строчек.
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
procedure MV(a:array[,] of integer; b,c:array of integer);
begin
for var i:=0 to b.Length-1 do
c[i]:=a.Row(i).Zip(b,(p,q)->p*q).Sum;
end;
begin
var a:array[,] of integer:=((2,4,0),(-2,1,3),(-1,0,1));
var b:array of integer:=(1,2,-1);
Writeln('Матрица A'); a.Println(3);
Write('Вектор B: '); b.Println;
var c:=new integer[3];
MV(a,b,c);
Write('Вектор С: '); c.Println
end.