Чисто подбором
1
+3 = 4
*2 = 8
+3 = 11
*2 = 22
*2 = 44
+3 = 47
ровно 6 шагов
{a}
var x: integer;
begin
read(x);
write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.
{b}
var a,b,c: integer;
begin
read(a,b,c);
write( (a <> b) and (b <> c) and (a <> c) )
end.
Это. очень смешно. папа. съел все. апельсины
var n,k,v,min,max,s: integer;
begin
readln(n);
k:=1;
read(v);
min:=v;
max:=v;
s:=v;
while k<n do
begin
k:=k+1;
read(v);
s:=s+v;
if v<min then min:=v;
if v>max then max:=v;
end;
writeln('min = ',min,' max = ',max,' sr = ',s/n:4:2);
end.
Пример:
5
85 62 105 74 90
min = 62 max = 105 sr = 83.20