Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
evbarseguan
23.05.2023 15:40 •
Информатика
Напишите программу, 1.найти все трехщначные числа, средняя цифра которых равна сумме первой и последней. 2.найти значение выражения
Показать ответ
Ответ:
LarisaSergeeva
31.08.2020 08:53
Var
i: integer;
begin
for i := 100 to 999 do
if i div 10 mod 10 = i mod 10 + i div 100 then
write(i, ' ');
end.
2) формула не четкая, написала как поняла
var
x: real;
begin
readln(x);
writeln(5 * exp(9 * ln(x)) + 13 * x - 2 * exp(11 * ln(x)));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dimon2005Dima
25.12.2020 01:31
Скорость передачи данных через adsl-соединение равна 256000 бит/c. передача файла через данное соединение заняла 23 секунд. определи размер файла в кбайт....
micha197979
07.11.2020 13:24
Суттєві і несуттєві властивості учня?...
паксуха
09.03.2021 23:56
Составить алгоритм вычисления функции y=x+3z,для заданных значений x и z...
Aki1Nozomi
28.03.2021 11:55
Элементы массива а(4,4) строятся по следующему правилу: a(i,j)=3*i-j Чему равна сумма элементов третьей строки...
icon21
09.06.2020 16:16
Без якого об єкта не може існувати база даних? * таблиці записи запити звіти рядки форми...
Kursova82
08.09.2022 06:40
Как в паскале сделать оконную программу, чтобы информатик получил инсульт жопы...
goodblood197
10.05.2021 12:19
Задано масив цілих чисел з n елементів. Знайдіть усі парні елементи масиву....
5656200
13.08.2021 20:00
С ИНФОРМАТИКОЙ Что делает данная строка в программе?...
ssssss22
25.05.2020 02:19
Почему на многих фотографиях возникает искажение перспективы?Как его убрать?...
vs12
29.08.2021 14:36
Решите как можно быстрее во Запишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer; Begin s := 1; for k := 3 to 7 do s := s * 2;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
for i := 100 to 999 do
if i div 10 mod 10 = i mod 10 + i div 100 then
write(i, ' ');
end.
2) формула не четкая, написала как поняла
var
x: real;
begin
readln(x);
writeln(5 * exp(9 * ln(x)) + 13 * x - 2 * exp(11 * ln(x)));
end.