Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
рузик83
02.08.2021 21:06 •
Информатика
Здание: построить модель объекта.условие : клен
👇
Увидеть ответ
Открыть все ответы
Ответ:
anzhelabrosg
02.08.2021
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
4,7
(96 оценок)
Ответ:
vadimfroloww
02.08.2021
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
4,8
(76 оценок)
Это интересно:
З
Здоровье
20.08.2020
Как безболезненно сесть в позу лотоса: советы йогов и научное объяснение...
О
Образование-и-коммуникации
15.03.2022
Квантовая физика: с чего начать, чтобы понять ее?...
Д
Дом-и-сад
02.09.2022
Как посадить дерево: советы от опытных садоводов...
С
Стиль-и-уход-за-собой
13.08.2021
Секреты получения и сохранения красивого загара в домашних условиях...
К
Компьютеры-и-электроника
05.08.2021
Секреты успешной презентации: Как создать эффективную презентацию в PowerPoint?...
К
Компьютеры-и-электроника
29.08.2022
Как быстро и легко изменить язык Google...
С
Стиль-и-уход-за-собой
16.06.2021
Как нарисовать дизайн ногтей Splatter...
О
Образование-и-коммуникации
02.07.2021
Как построить пирамиду для школы: шаг за шагом руководство...
О
Образование-и-коммуникации
11.10.2020
Как говорить по-фински: основные правила и рекомендации...
З
Здоровье
27.09.2021
Как улучшить сон...
Новые ответы от MOGZ: Информатика
алекс858
03.08.2022
В языке за поискового сервера для обозначения логической̆ операции «ИЛИ» используется символ «|», а для обозначения логической̆ операции «И» – символ «&». В таблице выше приведены...
hussrav98
22.12.2021
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 7, 5, 13, 7, 5, 4, 11, 8, 10, 3, т.е. A[0]=7, A[1]=5 и т.д. Определите...
двоишник55
07.05.2022
с рисунком в паскаль Сделайте на уровне 9 класса,чтобы было незаметно. Можно нарисовать дельфина без графика. Заранее...
6466743532
14.04.2021
Менің туған өлкем қазақстан тақырыбына эссе жазу барысында алгоритмді қалай қолдануға болады? алгоритмін құрып көріңдер...
Анастасия4111
28.08.2020
Найти количество двухзначных натуральных чисел у которых первая цифра 5. написать программу на языке паскаль...
Katyaguccigang
16.05.2023
ответьте на вопросы 1)какое поле будет ключевым для таблицымагазин(типмагазина,адрес,численностьассортимента,режимработы,числоработников)? a) тип магазина b) число работников c)...
Cocos228
01.01.2020
Скорость первого автомобиля v1 км / ч, второго - v2 км / ч, расстояние между ними s км. определить расстояние между ними через t часов, если автомобили отдаляются друг от друга....
кемпінг
08.09.2021
1-рассчитать сумму кубов всех положительных значений и их количество для функции y=3x2 + 2 cos x. составить программу для табулирования функции у на промежутке [0; 4] с шагом h=0,5....
kirirllermakov
14.02.2023
Уровень - знание и понимание 2. кто может исполнять алгоритмы? 3. каких исполнителей вы знаете? 4. можно ли робота назвать исполнителем? 5. укажите примеры формальных исполнителей...
dilovardustiev1
01.03.2023
Гражданин 1 марта положил в банк 10000 рублей. ежемесячно на сумму вклада добавляется 2% от общей суммы. через сколько месяцев сумма вклада составит больше 15 тысяч?...
MOGZ ответил
Упр 884. Дробная часть числа равна разности между самим ЧИСЛО его целой частью....
по технологии вопросы! 1.Какие бывают обтачки по раскроя? 2. Чем обтачка может...
Юра готовит блинчики (х) и сырники (у). У него есть час времени. Юра выпекает...
Утвори словосполучення іменника с прикметником Іменник: ранок, роса, небо, пахощі...
Выпишите химические формулы оснований в два отдельных столбика: щёлочи и нерастворимые...
«Мелкие тесно написанные буквы сольются в сплошную линию». Расставить запятые....
Если сила взаимодействия двух одинаковых электрических зарядов расположенных...
Указать части сложных предложений которые являются односоставными предложениями.Подчеркнуть...
14. Приведіть у відповідність колонки: Будова електронних оболонок атома Характер...
Дана трапеция ABCD, точка пересечения О, BO=4, CO=5, AO=15, DO=12 Найти: ВС...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.