Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Var
a,S:real;
i:integer;
Begin
S:=4+Ln(2);
a:=4;
For i:=1 to 7 do
begin
a:=a+2;
S:=Ln(a+Ln(S));
end;
Writeln('Result = ',S:0:5);
Readln;
End.
Вроде так:
var
a,b,x,y,z:real;
function func(x,y:real):real;
begin
a:=abs(x-y);
b:=cos(a)/sin(a);
z:=5-2*y*b*b*b*b*b-a;
end;
begin
write ('x=');
readln(x);
write ('x=');
readln(x);
func(x,y);
write ('z=',z);
readln
end.