Решите в pascalabc с циклов while и repeat. найти все трехзначные числа которые можно представить разностью между квадратом числа образованного первыми двумя цифрами и квадратом третьей цифры.
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018 Внимание! Если программа не работает, обновите версию!
begin // только у чисел 100 до 319 квадрат первых двух цифр трехзначный. var i:=10; while i<=31 do begin var j:=0; repeat if i*i-j*j=10*i+j then Print(10*i+j); j+=1 until j>9; i+=1 end end.
6. Длина поля измеряется в байтах d. символах 7. Записями считаются
c. строки
8. Реляционные базы данных имеют
d. связанные таблицы 9. Какое утверждение верно?
d. таблица базы данных состоит из отдельных записей; 10. В каком режиме пользователь может создать произвольную структуру БД?
c. конструктор;
11. Ключевое поле должно быть
c. уникальным
12. Что не относится к числовому типу:
b. 25-23-56
13. Текстовое поле позволяет занести информацию до a. 256 символов 14. Свойство автоматического наращивания имеет поле
c. счетчик
15. База данных содержит информацию об учениках школы: фамилия, класс, за тест, за практическое задание, общее количество . Какого типа должно быть поле «Общее количество балов»?
Программа на python 3, перебирающая все возможные последовательности определённой длины: def shortest_chains(n): def next_chains(chain): new_elems = set() for i in range(len(chain)): for j in range(i, len(chain)): new_elem = chain[i] + chain[j] if new_elem > chain[-1] and new_elem not in new_elems: new_elems.add(new_elem) yield chain + [new_elem]
current_stage = None next_stage = [[1]] answer = [] while len(answer) == 0: current_stage = next_stage next_stage = [] for chain in current_stage: next_stage.extend(next_chains(chain)) answer = [chain[1:] for chain in next_stage if chain[-1] == n] return answer
def print_solution(n): answer = shortest_chains(n) print("Для {} есть {} решений(-я, -е):".format(n, len(answer))) for i in range(len(answer)): print("{}. {}".format(i + 1, " ".join(map(str, answer[i] print()
Запустив, можно получить все 5 возможных решений для числа 7, по 4 решения для 15 и 23 и 87 решений для 63.
Внимание! Если программа не работает, обновите версию!
begin
// только у чисел 100 до 319 квадрат первых двух цифр трехзначный.
var i:=10;
while i<=31 do begin
var j:=0;
repeat
if i*i-j*j=10*i+j then Print(10*i+j);
j+=1
until j>9;
i+=1
end
end.