Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
abiersack
29.01.2023 01:43 •
Информатика
по информатике написать древне армейская система счисления
👇
Увидеть ответ
Открыть все ответы
Ответ:
anzhelabrosg
29.01.2023
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
29.01.2023
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 оценок)
Это интересно:
К
Компьютеры-и-электроника
15.06.2021
Как открыть программу Terminal на Mac...
К
Компьютеры-и-электроника
01.03.2023
Как войти в Windows со стандартным паролем администратора...
И
Искусство-и-развлечения
01.04.2021
Как научиться петь: советы для начинающих...
О
Образование-и-коммуникации
03.02.2023
Как правильно сказать привет на китайском языке: все, что нужно знать...
Х
Хобби-и-рукоделие
10.07.2021
Игра в Джекс: правила и стратегии...
С
Стиль-и-уход-за-собой
19.08.2022
Как сделать бальзам для губ из вазелина: домашний рецепт...
С
Семейная-жизнь
13.11.2020
Как стать лучшей сестрой: советы от реальных девушек...
К
Компьютеры-и-электроника
09.12.2022
Как взломать Wi-Fi сеть (WEP) с помощью Airoway и Wifislax...
О
Образование-и-коммуникации
08.01.2020
Как стать интересным: советы и рекомендации...
О
Образование-и-коммуникации
28.08.2021
Как написать описательный абзац: эффективные советы и примеры...
Новые ответы от MOGZ: Информатика
wifaretaba
20.02.2023
Написать программу для нахождения площади и периметра квадрата. В ответе количество знаков в целой части 4, в дробной части...
Alinysikmania1234567
21.05.2020
Как на языке программирования будет мужской пол...
vadka189
24.04.2021
Найдите две ошибки в страссировочной таблице и запишите её правильный вариант...
жанбеками3
21.03.2022
1.Роботу нужно закрасить все клетки и придти в клетку Б (База). Отметьте на поле синим фоном клетку, где лучше всего расположить Робота перед началом цикла, и напишите программу...
karinapoltawska
15.05.2020
* В одной из кодировок Unicode каждый символ кодируется 16 битами. Игорь Иванович написал текст (в нём нет лишних пробелов): Кислород, углерод, водород, азот, фосфор, калий,...
PROmax100
13.07.2020
Почему отец не стал ругать сына? Посмотреть текст Отцу было важно, чтобы сын осознал свою ошибку. Отцу было важно, чтобы сын десять раз наклонился. Отцу было важно, чтобы сын...
Лика113998
15.05.2023
Укажите номера имён файлов, соответствующих маске *труд???.* 1)сотрудник.doс 2)контрудар.doc 3)трудяга.xlsx 4)труды.xls 5)трудодень.xls 6)трудотерапия.xls...
druwban
04.08.2022
6. Скількі вузлів має най ша крива Безье? 1.Жодного 2.Один 3.Два 4.Чотири...
юра419
28.10.2022
1. Опиши алогоритм перемещения трехмерного объекта в Каким образом получить несколько копий объекта, расположенных на одинаковом расстоянии друг от друга? 3. Можно ли задать...
Кисаааа123
15.05.2021
Сколько бит информации необходимо для кодирования одной буквы? (tasm) a)1 b)8 c)4 d)16...
MOGZ ответил
Напишіть НЕ зі словами разом чи окремо. (Не) переконливий, ніде (не) знаний,...
Почему при смешивании всех красок получается чёрный, а когда все цвета видимого...
В какой сфере хозяйства занято большинство жителей страны венесуэлы...
Складіть блок-схему у якому потрібно задумати два числа та визначати, яке...
вас Как узнавать об изменениях на сайте, не заходя на него в браузере? на...
Які властивість має checked для прапорця...
Хорошо перетасуем колоду карт, случайно вынем 1 карту. Событие А (вытянута...
Скласти речення: 1. зі вставним словом 2.зі вставним словосполученням 3....
Твір-мініатюра на тему Михайло Коцюбинський--геніальний дослідник людських...
Якою з п єс Г.Ібсен дебютував на сцені...
Полный доступ к 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.