если переменная A больше B то переменнвя Y равно переменной A, после идет вывод переменной Y, но если A меньше B то переменная Y равно B, послп вывод содержимого переменной Y
Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
Из большей в меньшую, обычно делать число на основание числа, которое хотят получить, с учетом что на каждой итерации деления в столбик остатокот деление не должен превышать основание.
Например число 56 перевести в двоичную систему
56/2 = 28 (остаток 0) 28/2 =14 (остаток 0) 14/2 = 7(остаток 0) 7/2=3(остаток 1) 3/2=1 (остаток 1) Число будет состоять из остатков от деления записанных в обратном порядке 111000
Program pr1;
var
x:byte; // Число
y:real; // Функци
Begin
x:=17;
writeln('y= ',SQRT(x+8));
End.
Дальше просто замени другими значениями x