<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
1)8байтов;56 бит
2)5байтов;40битов
3)9байтов;72бита
4)12байтов;96битов
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
Program help;
uses Crt;
var a,cot,cpo:integer;
begin
ot:=0;po:=0;cot:=0;cpo:=0
repeat
writeln('Число: ');
readln(a);
if a<0 then begin ot:=ot+a; inc(cot);end else
if a>0 then begin po:=po+a; inc(cpo); end else
if a=0 then begin
writeln('Кол-во положительных чисел: ',cpo);
writeln('Кол-во отрицательных чисел: ',cot);
end;
until a=0;
readln;
end
Смотри, первым делом нам нужно узнать, какие 2 из этих 4 пунктов самые удаленные по отношению друг к другу. Дла этого расписываем пути из одной точки в другую для всех точек(абцд)
C-A=7
C-D=10
C-B=16
A-C=7
A-B=9
и т.д
Находим 2 самых удаленных друг от друга пункта
это
C-B
кратчайших путь из точки C в точку B-это CAB (16)
ответ 3)16