Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
topghalya228
14.02.2023 01:41 •
Информатика
Составить алгоритм и программу для вычисления значения функции f по формулам: sqrt(ab)/3(a+b)^2 - при a> 0, b> 0 (pascal)
Показать ответ
Ответ:
GorunovaSasha
06.10.2020 05:55
ответил в комментарий к ответу в вопросе
program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
else
writeln('Ошибка. A<0 или B<0');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maxon23
10.05.2022 01:36
Вспомнить любую сказку и составить разветвляющийся алгоритм в MS Word в виде блок-схемы....
ksenaf
14.10.2022 05:11
1)Придумай свой компьютерный манипулятор. 2) Придумай его внешний вид, какие функции он выполняет. примеры манипулятора: компьютерная мышь, тачпад, трекбол, геймпад,...
marina151987
02.12.2022 12:48
Дана база данных (MS Access) Студенты университета .Запиши за Необходимо получить информацию: все фамилии, которые входят в диапазон от Ш до Я....
Ayashka11
25.08.2021 19:22
Запишите 32-битовый IP-адрес в виде четырёх десятичных чисел, разделённых точками:01001000.10100011.00000100.10100001 ...
vasyav1337
29.09.2021 17:26
1. В марафоне участвуют 500 спортсменов. Специальное устройство регистрирует прохождение финиша, записывая его номер с использованием минимально возможного количества...
dimahello07
12.11.2020 17:41
Реши задачу. (ответ округли до целых). Книга содержит 137 страниц. На каждой странице 39 строк. В каждой строке 59 символов (включая пробелы). Найти информационный...
ВанюткаВано
27.11.2021 04:07
Ввести два целых числа а и b (а b) и вывести квадраты всех чисел от а до b НА ЯЗЫКЕ С++...
andreiantipov1
06.09.2022 13:23
Напишите на питоне! Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8...
яяя489
27.11.2021 04:07
1 Кбит/с равен: 1024бит/с 256бит/с 8бит/с 100бит/с...
atapinalidia577
04.06.2022 18:59
Книга содержит 139 страниц. На каждой странице 40 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
else
writeln('Ошибка. A<0 или B<0');
end.