Program prog;
Uses crt;
var a: array [1..5] of integer;
i,k: integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]<>0) then
inc(k);
end;
writeln;
write('k = ', k);
end.
При максимальном значении цвет будет белым, а при минимальном черный
172 [8]=64+7×8+2=122 [10]
2EA [16]= 2×256+14×16+10 = 512+224+10=746 [10]
101010 [2]=2+8+32=42 [10]
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.