<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;
writeln (m,'миль=',v,'верст');
s:=v*500;
writeln (m,'миль=',s,'саженей');
a:=s*3;
writeln (m,'миль=',a,'аршинов');
d:=a*28;
writeln (m,'миль=',d,'дюймов');
mm:=d*25.4;
writeln (m,'миль=',mm,'миллиметров');
end.
//Pascal ABC.NET v3.1 сборка 1172
var
NA, NB, NC: integer;
function minim(ar: array of real; n: integer): real;
var
i: integer;
min: real;
begin
min := MaxReal;
for i := 0 to n - 1 do //динамические массивы индексируются с 0
if min > ar[i] then min := ar[i];
minim := min;
end;
begin
randomize;
write('NA:');readln(NA); //ввод размерностей
write('NB:');readln(NB);
write('NC:');readln(NC);
var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов
var b := ArrRandomReal(NB, 1, NB);
var c := ArrRandomReal(NC, 1, NC);
a.println(' ');
writeln('Min:', minim(a, NA));
b.println(' ');
writeln('Min:', minim(b, NB));
c.println(' ');
writeln('Min:', minim(c, NC));
end.
Пример ввода:
NA:3
NB:4
NC:5
Пример вывода:
2.45183664907321 2.12786289357015 2.8286734511278
Min:2.12786289357015
3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996
Min:1.03827733129183
3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051
Min:3.57791954771519
Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
14×4+14×2+3×2+2×4+14×2+2×2=14×8+2×9=112+18=130метров проволки нужно
