Написали бы язык программирования. Вот на java.<span>
import java.io.*<span>;
</span>import java.util.ArrayList<span>;
</span>
public class Main {
public static void main(String[] args) throws IOException {
<span>//Создаём объекты, которые помогут с чтением и записью файла
</span> BufferedReader reader = new BufferedReader(new FileReader("input.txt"))<span>;
</span> BufferedWriter writer = new BufferedWriter(new FileWriter("output.txt"))<span>;
</span><span>//Читаем первую и вторую строку
</span> String one = reader.readLine()<span>;
</span> String two = reader.readLine()<span>;
</span><span>//Парсим строки в массивы целых чисел
</span> String[] oneStringArray = one.split(" ")<span>;
</span> String[] twoStringArray = two.split(" ")<span>;
</span> ArrayList<Integer> oneList = new ArrayList<>()<span>;
</span> ArrayList<Integer> twoList = new ArrayList<>()<span>;
</span> for (String s:oneStringArray) {
oneList.add(Integer.parseInt(s))<span>;
</span> }
for (String s:twoStringArray) {
twoList.add(Integer.parseInt(s))<span>;
</span> }
<span>//Прогоняем первый массив в цикле, если не находим совпалений во второй массиве, то увеличиваем значение count на 1
</span> int count = 0<span>;
</span> for(int a:oneList){
boolean flg = <span>false;
</span> for(int b:twoList){
if(a == b){
flg = <span>true;
</span><span> break;
</span> }
}
if(flg){
count++<span>;
</span> }
}
writer.write(count)<span>;
</span> writer.close()<span>;
</span> }
}
</span>
Герой может за один ход сдвинуться в клетку, соседнюю с данной по стороне или углу (если клетка проходима). За границы карты герой выйти не может. Теперь Вася хочет положить несколько слитков золота (в одной клетке — один слиток) так, чтобы кратчайшее расстояние до них от стартовой клетки было максимальным. Сколько клеток с золотом будет на этой карте? В качестве ответа укажите одно натуральное число, например, 4.
<span>КОМЕНТАРИЙ -Для карты, изображенной на рисунке ниже ответ 7 – есть 7 клеток (правый столбец и нижняя строка карты), кратчайший путь до которых требует 2 хода. До всех остальных клеток можно дойти за 1 ход.</span>
1 обложка( еще называют "переплёт")
2 форзац
3 титульный лист
4 оглавление
5 вспомогательные разделы
6 остальной текст книги
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.