Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
annswi
27.05.2022 23:59 •
Информатика
Описать процедуру rectdiag(a, b, d), вычисляющую диагональ прямоугольника со сторонами a, b (a, b — входные, d — выходной параметр вещественного типа).
Показать ответ
Ответ:
antonlutsenko1
10.07.2020 23:11
Procedure RectDiag(a,b: real; var d: real);
begin
d:=sqrt(a*a+b*b);
end;
var a,b,d:real;
begin
read(a,b);
RectDiag(a,b,d);
writeln(d);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
neznaika167
13.05.2023 10:43
Инструментальное программное обеспечение -это O PascalO BasicO WordPowerPoint...
SaShAkOT13
20.12.2020 16:02
Наберите программу, добавьте описание типов переменных и добейтесь ее работо . Самостоятельно : Иван Иванович захотел получить распечатку : как будет меняться сумма вклада по...
lim155
14.07.2022 04:11
Определить, встречается ли в ведённом числехотя бы одна цифра неравная трём (написать программу на паскале)...
nikita1232534
28.01.2022 15:50
с информатикой Сколько ячеек входит в диапазон C10:F30? ответ: 2) В ячейке B2 была записана формула =A$1*5. Выберите из списка все ячейки, при копировании в которые формула...
milinamonid
08.05.2020 19:17
В какой точке окажется Чертёжник после исполнения следующей программы? использовать Чертежник алг нач . поднять перо . сместиться в точку (1, 1) . опустить перо . нц 5 раз ....
lagis9
22.12.2021 20:38
Частина текстового документа розподілена лініями поділу сторінок це СТРОЧНО...
БродилаПоЛесу
30.05.2020 23:53
ДО ЗАВТРА НУЖНО , СЕЙЧАС 21:51, Я ПЕРВАЯ СМЕНА С 8:00...
ghorddd
22.04.2023 17:31
Шартты форматтау дегеніміз не? Көмек Керек...
viktoriy39
23.07.2021 20:43
ПОКАЗ СЛАЙДОВ 54 10 [Защищенный просмотр) - PowerPoint (Сбой активации продукта)видРЕЦЕНЗИРОВАНИЕсодержать вирусы. Если вам не нужно изменять этот документ, лучше работать с...
bur5645
15.04.2022 14:32
ПОмгите мне это СОЧ 2 вариант 1. [ ] При каких значениях переменной, алгебраическая дробь * * * 3x +1 имеет смысл? x2-81 39x3y 2. [ ] Сократите дробь: 26 x2 y2 3. [ ] Упростите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
d:=sqrt(a*a+b*b);
end;
var a,b,d:real;
begin
read(a,b);
RectDiag(a,b,d);
writeln(d);
end.