или так
begin
for var i := 35 to 87 do if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5) then write(i, ' ');
end.
E:\TOM3\Doc3
Мне кажется, что DOC3 - это просто отвлечение, т.к. папка не ведет к нужному файлу
1) Каждое из двух чисел, записанных друг за другом, находятся в диапазоне от 0 до 18.
2) Помним про упорядоченность.
а) 112 <- "11" "2" <- "5+6" "1+1" <- "5611"
б) либо 191 <- "1" "91", либо 191 <- "19" "1". В любом случае получаются числа больше 18
в) 1114 <- "11" "14", но 11 < 14. Провал
г) 1519 <- "15" "19", 15 < 19, снова провал
Ответ: а)
Расстояние должно быть от комьпютера 30см