Здравствуйте, Панин Андрей Владимирович!


О функциях:
1) div - целочисленное деление (остаток опускается);
2) mod - деление чисел, когда опускается целая часть числа (например 5 mod 4 = [s] 25 [/s] 1 );
3) Odd(x) - функция возвращает TRUE, если число х нечётное, и FALSE в обратном случае (х - целое);
4) not - отрицание.

Best regard's!

Здравствуйте, Панин Андрей Владимирович!

В приложении решение задач 1,2,4.
В задачах использовано свойство логического типа как перечисляемого, т.е. False=0 True=1.
1)строка:
a+abs(b) в условии задачи стоит знак минус для отрицательных чисел, что в итоге даёт плюс
-round(exp(ln(c)*(1+ord(b>0))/(1+ord(b<=0)))) формула возведения числа в любую степень, корень это степень равная 1/2
2)round(exp(ln(a)*3)) возведение числа в куб
4)строка:
оrd((a mod b)=0) если А делится нацело, то будет 1, иначе 0
*(b mod 2) если число нечетное будет 1, иначе 0
*b само число

вопросы задавайте в мини-форум.
Удачи!

Приложение:
var
a,b,c:integer;
d:longint;
begin
{1}
{вводим данные}
write('a:');readln(a);
write('b:');readln(b);
{контроль вводимого числа}
repeat
write('c:');readln(c);
until c>0;
writeln('1:Y:=',a+abs(b)-round(exp(ln(c)*(1+ord(b>0))/(1+ord(b<=0)))));
{2}
writeln;
d:=0;
{в цикле перебираем все значения}
for a:=10 to 100 do
{считаем сумму кубов}
d:=d+round(exp(ln(a)*3));
writeln('2:S:=',d:10);
{4}
{вводим натуральное число}
writeln;
repeat
write('N:=');
readln(a);
until a>1;
d:=0;
for b:=1 to a do
{считаем сумму нечетных делителей}
d:=d+ord((a mod b)=0)*(b mod 2)*b;
writeln('4:S:=',d:10);
end.