I=1,44Мбайт=1474,56Кбайт=1509949,44байт=12079595,52бит
Var
x, a, t, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
Write('Введите значение коэффициента a: ');
Readln(a);
{боремся с неположительным значением под знаком корня}
t := a - cos(x);
if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
else if t = 0 then y := exp(x + 1.8)
else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326
А)Разбиваем буквы на пары: урок, весна, каникулы, информация, мокрому дождь не страшен.
б)Читаем с права на лево: арена, корзина, рюкзак.
в)Разбиваем слово на слоги и записываем каждый слог с права на лево: канал, гитара, телевизор.
г)Читаем слово через букву с лева на право а затем оставшийся буквы с права на лево:балкон, вагон, кабинет.
Function f(n:integer):boolean;
var m:set of 0..9;
begin
m:=[];
f:=true;
while n>0 do
begin
if (n mod 10) in m then f:=false;
m:=m+[n mod 10];
n:=n div 10;
end;
end;
begin
writeln(f(12321));
end.
Результат:
<span>False</span>