В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
malboro3
malboro3
05.12.2020 11:38 •  Информатика

Решите паскали,вариант 5beginwritelnend.

Ответ:
Жансулу919191
Жансулу919191
06.07.2020 15:28

1.

const num_1 = 10/52;

const num_2 = sqrt(54.7);

var

 result:real;

 function sum(a,b:real):real;

 begin

    sum:=a+b;

 end;

begin

 result:=sum(num_1, num_2);

 writeln(result);

end.

2.

const x = 41.3;

const basis = 10;

var

 result:real;

begin

 result:=ln(x)/ln(basis);

 writeln(result);

end.

3.

const x = 7.5;

const y = 9.6;

var

 result : real;

 function root(x, y:real):real;

 begin

 root := exp(ln(x)/3) * exp(ln(y)/4);

 end;

begin

 result:=root(x,y);

 writeln(result);

end.

4.

const x = 1.6;

const y = 1.3;

var

 result:real;

 function gen(x,y:real):real;

 var  

   res:real;

 begin

   res:=cos(y);

   gen:=sin(x)*power(res, 3);

 end;

begin

 result:=gen(x,y);

 writeln(result);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?