как получить число 52 , используя два одинаковых числа и знак арифметического действия

(для обозначения инверсии используется знак # перед переменной, например, #h означает h с инверсией, для обозначения логического сложения и умножения используются знаки "+" и "*"

радиоканалу, обеспечивающему скорость получения им информации У Васи есть доступ к Интернет по высокоскоростному одностороннему
радиоканалу, обеспечивающему скорость получения им информации 217
бит в секунду. У Пети нет скоростного доступа в Интернет, но есть
возможность получать информацию от Васи по низкоскоростному телефонному
каналу со средней скоростью 216 бит в секунду. Петя
договорился с Васей, что тот будет скачивать для него данные объемом 8
Мбайта по высокоскоростному каналу и ретранслировать их Пете по
низкоскоростному каналу. Компьютер Васи может начать ретрансляцию данных
не раньше, чем им будут получены первые 1024 Кбайт этих данных. Каков
минимально возможный промежуток времени (в секундах), с момента начала
скачивания Васей данных, до полного их получения Петей? В ответе укажите
только число, слово «секунд» или букву «с» добавлять не нужно.
бит в секунду.

Найдите дискриминант квадратного уравнения:y=5x^2+6x-7

памяти рисунок без учёта сжатия?

Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.

Что нужно изменить в программе, чтобы выполнялось условие задачи.

Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.

Например, 153=1³ + 5³ + 3³.
Входная строка содержит два натуральных числа- значения а и б.
Входные данные
Входная строка содержит два натуральных числа - значения а и б, разделенных пробелами. Гарантируется, что а≥б.
Выходные данные
Программа должна вывести в одну строчку все числа Армстронга на отрезке а, б, разделив их пробелами. если таких чисел нет, программа должна вывести -1.

4)Если целое M делится на целое число NБ то на экран выводится частное от деления,в противном случае выводится сообщение"M на N нацело не делится".
8)Одинаковы ли цифры данного двухзначного числа.
9)является ли сумма цифр двухзначного числа четной.
12)кратна ли числу A сумма цифр двухзначного числа.
14)какая из цифр трехзначного числа больше: первая или вторая.
16) все ли цифры трехзначного числа одинаковые.