33*63=2079 на одной странице
2079*19=39 501 байт - для 19 страниц
Правильные утверждения:
Документы могут содержать не только текст.
<span>Установленные в документ изображения можно удалить.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Res(a:integer;op:char;b:integer):integer;
begin
case op of
'+':Result:=a+b;
'-':Result:=a-b;
'*':Result:=a*b;
'/':Result:=a div b
end
end;
begin
var s:=ReadlnString('Вводите:');
var p:=s.Matches('(((\-)?\d+)|[\+\-\*\/])').ToArray;
if p.Count<>5 then Writeln('Ошибка!')
else begin
var op1:=p[1].Value[1];
var op2:=p[3].Value[1];
var a:=p[0].Value.ToInteger;
var b:=p[2].Value.ToInteger;
var c:=p[4].Value.ToInteger;
if (op1 in ['+','-']) and (op2 in ['*','/']) then
Writeln('='+Res(Res(b,op2,c),op1,a))
else Writeln('='+Res(Res(a,op1,b),op2,c))
end
end.
<u>Примеры</u>
Вводите: -4--3--2
=1
Вводите: 12*3+45
=81
Вводите: 45+12*3
=81
Вводите: -26/13--5
=3
Program qZiP;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
while <>0 do
begin
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
<span>end.</span>
С целыми числовыми типами данных Паскаля можно выполнять следующие операции:
Арифметические:
сложение(+);
вычитание(-);
умножение(*);
остаток от деления (mod);
возведение в степень;
унарный плюс (+);
унарный минус (-).
Операции отношения:
отношение равенства (=);
отношение неравенства (<>);
отношение меньше (<);
отношение больше (>);
отношение не меньше (>=);
отношение не больше (<=).
✓Возможное переполнение результата никак не контролируется (это важно!), что может привести к ошибкам.
