Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
даша3648
13.02.2022 02:53 •
Информатика
Решить через pascal abc y=lnx+6x^3 cos(x+9)
Ответ:
belka1006
08.10.2020 20:45
Var
x,y:real;
begin
Write('x='); Read(x);
y:=Ln(x)+6*x*x*x+Cos(x+9);
Writeln('y = ',y)
end.
0,0
(0 оценок)
Ответ:
ВикторияПан
08.10.2020 20:45
Var x,y:real;
begin
x:=1.0;
while x<=10 do begin
y:=ln(x)+6*x*x*x*cos(x+9);
writeln(x,' ',y);
x:=x+1;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ник555555551
31.12.2020 09:56
Составить программу на c++ для вычисления: ...
Шынарай111
08.05.2023 23:35
Назначение жёсткого диска...
Mj3589
20.11.2022 09:49
Өлшемі 8×8 шахмат тақтасын кодтау үшін ақпарат көлемі қандай...
ЯЯЯ03
29.03.2020 03:10
решить Распишите с дано,найти...
милка1523
12.09.2020 22:09
Что такое компьютерная программа?...
огурок
16.06.2020 13:50
Вычислите сколько бит байтов составляет ваше полное имя фамилия отчество(оноприенко Диана Алексеевна...
naklus
16.12.2021 17:18
В чому проявляється інфлрмаційна культура людини...
Elementrix534
25.10.2020 08:47
Выбери ответ. 1. Сервер — это специальный компьютер, который предназначен для удаленного запуска приложений, обработки запросов на получение информации из баз данных и обеспечения...
linakabak12345
09.10.2022 01:49
Как компьютер видит информацию?...
Нилллл
30.12.2022 17:41
Ақпараттың құпиялылығы ның қауіптерінің түрлері ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
x,y:real;
begin
Write('x='); Read(x);
y:=Ln(x)+6*x*x*x+Cos(x+9);
Writeln('y = ',y)
end.
begin
x:=1.0;
while x<=10 do begin
y:=ln(x)+6*x*x*x*cos(x+9);
writeln(x,' ',y);
x:=x+1;
end;
end.