Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: <em>integer</em>;
begin
readln(a);
writeln((a <em>mod </em>10 <em>*</em> 3) <em>mod</em>10);
<span>end.</span>
Все приводим к основанию 2 и к битам, поскольку 8=2³, 16=2⁴, 1 байт=2³ бит,
1 Кбайт=2¹⁰ байт=2¹³ бит, 1 Мбайт=2²⁰ байт=2²³ бит