Укажите порядок вставки Гипертекст Выбрать из пункта Связать с нужный пункт (при необходимости указать адрес ) Нажать Ok Перейдите на раздел Связи, выберите Гиперссылка Выделите фрагмент текста (слово, словосочетание), который нужно использовать как гиперссылку. 1 Перейдите на вкладку Вставка

кшулу в конце концов это сообщение свободно говорит о многом другом формате

import math

for i in range(10, 99 + 1):

if math.sqrt(i % 10 * 10 + i // 10 + i) % 1 == 0:

 print(i)

Пояснения:

Перебираем с цикла for список всех двузначных чисел, созданный с функции range(10, 99 + 1).

i % 10 * 10 + i // 10 — меняем местами десятки и единицы (например, 29 превращаем в 92):

i % 10 — получаем десяткиi // 10 — получаем единицы

Потом добавляем к полученному наше исходное число (например, 29 превращается в 92 и к нему прибавляется 29). Из этой суммы находим квадрат с функции sqrt() из модуля math (мы его подключили первой строкой import math). Чтобы проверить, полный ли квадрат получается из этого числа, нужно проверить, имеет ли остаток полученный корень. Я нашел остаток от деления с конструкции root % 1. Если остаток равен нулю, то квадрат полный, следовательно выводим число в консоль с функции print().

1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения:

Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:

Т.е. это произойдет в шестой день. Хороший проверить работу программы.

var
  i,an,s,f:integer;
 
begin
  s:=0; an:=0; f:=0;
  for i:=1 to 10 do
  begin
    an:=2*an+1;
    if f=0 then
      if an>35 then
      begin
        Writeln('День ',i,', за раз съедено комаров- ',an);
        f:=1
      end;
    s:=s+an
  end;
  Writeln('За 10 дней съедено комаров: ',s)
end.

Результат выполнения программы:
День 6, за раз съедено комаров- 63
За 10 дней съедено комаров: 2036

2. Используем алгоритм Евклида.

var
  a, b: integer;
begin
  Write('Введите два натуральных числа: '); Readln(a,b);
  if a<>b then
    repeat
      if a > b then a := a - b
      else b := b - a
    until a=b;
  Writeln('НОД=',b)
end.

Тестовое решение:
Введите два натуральных числа: 264 5436
НОД=12