Задание №1
y := (4 * Power (x, 7) - 15 * x + Cos (x)) / (Sqrt (Abs (Power (Sin (x * x), 3) + Power (Cos (Power (x, 3)), 2))) + 2.53) ;
Задание №2
y := (a * a + b * b - 14 * Power (a, 6) + 15 * a * b) / (4 * Tan (Pi / 3));
примечание "y :=" в начале выражения можно убрать
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];