3. в таблице ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (ves[1] – вес первого учащегося, ves[2] – вес второго учащегося и т. определите, что будет напечатано в результате выполнения следующего алгоритма. var ves: array[1..14] of integer; i, n: integer; begin
ves[1] : = 25; ves[2] : = 21; ves[3] : = 23; ves[4] : = 28; ves[5] : = 30; ves[6] : = 25; ves[7] : = 31; ves[8] : = 28; ves[9] : = 25; ves[10] : = 28; ves[11] : = 30; ves[12] : = 27; ves[13] : = 26; ves[14] : = 24; n : = 0; for i : = 1 to 14 do begin if ves[i] > 26 then n : = n +
1 end; writeln(n); end.​

program raf105;

var a:array[1..8] of real;

i,n:integer;

x:real;

begin

write('Введите номер билета: ');

readln(x);

n:=8;

for i:=1 to 8 do

begin

 n -= 1;

 if i=1 then

   a[i]:= trunc(x / (10**7))

 else if i=8 then

   a[i]:= round(frac(x / 10)*10)

 else

 a[i]:= round(frac((trunc(x / (10**n))) / 10)*10);

end;

if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]

 then writeln('Номер билета является счастливым')

 else writeln('Номер билета не является счастливым');

end.

program raf105;

var a:array[1..8] of integer;

i:integer;

x:string;

begin

write('Введите номер билета: ');

readln(x);

for i:=1 to 8 do

 a[i]:= ord(x[i])-48;

if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]

 then writeln('Номер билета является счастливым')

 else writeln('Номер билета не является счастливым');

end.

Язык PascalABC

program raf105;

var abc,a,b,c:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

c:= abc mod 10;

b:= (abc-((a*100)-c)) div 10;

if (a>b) and (a>c)

 then begin

   a:= a*100;

   if b>c

     then b:=b*10

     else c:=c*10;

  end;

if (b>a) and (b>c)

 then begin

   b:= b*100;

   if a>c

     then a:=a*10

     else c:=c*10;

  end;

if (c>b) and (c>a)

 then begin

   c:= c*100;

   if b>a

     then b:=b*10

     else a:=a*10;

  end;

abc:= a+b+c;

writeln('Компьютер переставил цифры числа в порядке убывания: ',abc);

end.

Язык PascalABC