Всем привет. Застрял на задаче, не могу придумать, - вопрос №13452861 от tyzigfr 28.01.2020 07:16

Question

Информатика: Всем привет. Застрял на задаче, не могу придумать, как написать код. Кто может Минное поле представляет собой прямоугольное поле размером N × M, разделенное на клетки размером 1 × 1. В некоторых клетках находятся мины (не более одной мины в клетке). Необходимо посчитать количество мин на поле. Формат входных данных Первая строка содержит числа n и m (1 ≤ n, m ≤ 103 ), обозначая ширину и высоту поляны. Следующие m строк содержат строки из n символов, которые описывают распределение мин при расчистке.

tyzigfr · Answer

var i,j,k,m: integer;    s: string;begin  k:=0;  for i:=1 to 1000000 do  begin    s:=IntToStr(i);    m:=0;    for j:=1 to (length(s) div 2) do    if s[j] s[length(s)-j+1] then m:=1;    if m=0 then    begin      inc(k); continue;    end;      m:=pos( 0 ,s);    if m 0 then    begin      inc(k); continue;    end;      m:=1;      for j:=2 to round(sqrt(i)) do     if i mod j = 0 then    begin      m:=0;      break;      end;      if m=1 then inc(k);   end;  k:=1000000-k;  writeln( осталось чисел: ,k);end.осталось...