Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
альбина262
22.11.2021 07:49 •
Информатика
Описать процедуру rectdiag(a, b, d), вычисляющую диагональ прямоугольника со сторонами a, b (a, b — входные, d — выходной параметр вещественного типа).
Показать ответ
Ответ:
котя1995
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 оценок)
Популярные вопросы: Информатика
ofdgf
12.05.2022 12:07
2. В чём отличие программиста и пользователя?...
albina227
12.05.2023 12:28
Служба, обеспечивающая пересылку сообщений, вещей между отправителем и 10 букв !...
islamreal99
27.04.2023 14:59
Какой из перечисленных вариантов относится к неформальному исполнителю? 1) Выступление животных на цирковой арене 2) Работа конвейера по сборке деталей машин 3) Ученик, полностью...
Kseniya1521
25.08.2022 22:34
Привет если кто-нибудь сможет буду очень рада нужно для экзамена...
babedinova
26.05.2021 14:47
Задание: Единственный собрать весь уражай-этт двигаться вперед пока не доберешься до салата затем повернуть налево если есть путь влево. В прртивном случае. Блоки: дви6аться...
Dosina
29.10.2021 11:56
2. В рабочем окне программыSketchUp впишите название инструментов:...
polinas2005
10.04.2020 05:00
Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на пяти языках) Очень с объяснением без кода...
rne
29.04.2023 14:36
Установите соответствие... ...
sashabibik777
14.03.2022 01:33
Расположи в правильном порядке алгоритм построения окна в SketchUp при созданиимодели помещения.Использовать инструмент «ВдавитыIВытянуть», чтобы вдавить полость окна1Нарисовать...
Аліна202
13.12.2020 15:45
Вариант 8 Решить графически систему уравнений: 12x – бу = 2 5x - 2y=1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.