Запишите логическое выражение для каждой из фраз: 1.а принадлежит диапазону (18; 80) 2.а принадлежит диапазону [18; 80) 3.а принадлежит диапазону (-10; 18) 4.а принадлежит диапазону [-10; 18] 5.а не принадлежит диапазону [-10; 18] 6.а не принадлежит диапазону (-10; 18) 7.а меньше -1 или больше 1 8.а не принадлежит диапазону [18; 80) 9.а больше 0 и не равно 10 10.а кратно 4 и 5 (используйте mod)

Один дюйм это 2,54 сантиметра.

Следовательно изображение 43,18 х 43,18 см равно 17 х 17 дюйма.

Разрешение сканера 600 х 1200 точек на дюйм. Значит по вертикали будет 600 * 17 точек или 10200, а по горизонтали будет 1200 * 17 точек или 20400. А всего получается точек 10200 * 20400 = 208080000.

Глубина цвета 4 бита. Следовательно, на каждую точку приходится 4 бита информации. А всего информации будет 208080000 * 4 = 832320000 бита или 832320000 / 8 = 104040000 байт или 104040000 / 1024 = 101601,5625 килобайт или 101601,5625 / 1024 = 99,22 мегабайт

//PascalABC.NET 3.2 сборка 1318
//Очередное решение "в лоб"

Var
  n,i,j,max:integer;
  s,curr:string;
  b:boolean=false;
begin
readln(n);
max:=-1;
s:=inttostr(n);
for i:=1 to length(s) do
  begin
    curr:='';
    for j:=i downto 1 do
      begin
        curr:=s[j]+curr;
        if frac(sqrt(strtoint(curr)))=0 then
          begin
            b:=true;
            if sqrt(strtoint(curr))>max then max:=round(sqrt(strtoint(curr)));
          end;
      end;
 end;
if b then writeln(max) else writeln('0');
end.

Пример ввода 1:
164
Пример вывода 1:
8
Пример ввода 2:
523
Пример вывода 2:
0