1. 24
2. Данный массив не может существовать, и данная инициализация вызовет ошибку, поскольку масив может задаваться только позитивными числами
3. Она выведет на экран 0 -1 -4 и закончит работу
-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС
Program zadacha;
var
a,b,c:real;
begin
read(a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
write('yes');
end.
[8, "1000"]
[9, "1001"]
[10, "1010"]
[11, "1011"]
значится числа таких 2, и большее из них 10
var i,l,k,n,p:integer;
s:string;
Z: set of char;
A: array[1..100] of real;
B: array[1..100] of char;
R,Buf:real;
function F(A:real; Z:char; B:real):real;
begin
case Z of
'+': result:=A+B;
'-': result:=A-B;
'*': result:=A*B;
'/': result:=A/B;
end;
end;
begin
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);
Rewrite(output);
Readln(S);
close(input);
L:=length(s);
k:=0;
n:=0;
Z:=['+','-','*','/'];
for i:=1 to L do
if not(S[i] in Z) then begin
inc(k);
A[k]:=StrToInt(S[i]);
end
else begin
inc(n);
B[n]:=S[i];
end;
if (S[1] in Z) then
begin
if s[1]='-' then A[1]:=A[1]*(-1);
for i:=1 to n do
b[i]:=b[i+1];
dec(n);
<span> end;
</span> i:=0;
While (i<n) do
begin
inc(i);
if ((B[i]= '*') or (B[i]='/')) then
begin
buf:=F(A[i],B[i],A[i+1]);
A[i]:=buf;
for p:=i+1 to k do
A[p]:=A[p+1];
for p:=i to n do
B[p]:=B[p+1];
dec(n);
dec(i);
end;<span>
end;</span> R:=A[1];
for i:=1 to n do
if not((B[i]= '*') or (B[i]='/')) then
R:=F(R,B[i],A[i+1]);
writeln(R);
Close(output);
end.