Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
уукуку
19.04.2020 04:38 •
Информатика
Описать процедуру powera3(a, b), вычисляющую третью степень числа a и возвращающую ее в переменной b (a — входной, b — выходной параметр; оба параметра являются вещественными). с этой процедуры найти третьи степени пяти данных чисел
Показать ответ
Ответ:
kirillsysoev2
26.08.2020 13:47
Procedure PowerA3(A: integer; Var B:longint);
Begin
B:=A*A*A;
End;
Var
A,B,C,D,E:longint;
Begin
ReadLn(A,B,C,D,E);
PowerA3(A,A);
PowerA3(B,B);
PowerA3(C,C);
PowerA3(D,D);
PowerA3(E,E);
WriteLn(A,' ',B,' ',C,' ',D,' ',E)
End.
1 2 3 4 5
1 8 27 64 125
0,0
(0 оценок)
Популярные вопросы: Информатика
МарияТуз
15.03.2020 20:17
Впаскаль. в массиве хранится информация о массе каждого из 30 предметов, загружаемых в грузовой автомобиль, грузоподъёмность которого известна. определить, непревышает...
77linnik
06.08.2020 06:39
Рома может поставить Робота в одну из клеток лабиринта, изображённого на рисунке: Затем Робот выполняет последовательность команд: вверх вправо Сколько стартовых положений...
polanovikova
09.12.2020 21:46
Составить блок-схему алгоритма с условие спутниковая передача данных . ...
masha0301
21.07.2020 15:58
1. Какие значения может принимать целая переменная Y, если в программе записано: а) Y:=random (7) +5 б) Y:=random (12)-9 в) Y:= random (9)*2 2. Используя функцию random(x)...
Igor2000Petrov
06.07.2022 13:19
Заполни пропуски Вы ввели в программе Microsoft Word слова Остолбеней . А затем отредактировали его. Ниже представлены варианты изменения слова. К каждому варианту подберите...
Alex90111
02.03.2023 20:57
Перетащить слова к пропускаем ввод, распознавание правка оформление Создание- Редактирование-- Форматирование- ...
Солнышко003
17.07.2020 23:15
Какой заголовок подпрограммы-функции записан правильно?...
dkcmvmcmf
18.06.2022 00:53
[/Массивы 2 1. Даны действительные числа x1, x2, , Xn, У1,У2. Уп, 11, r2, I n. Выяснить, есть ли на плоскости точка с целочисленными координатами, принадлежащая всем...
sququ1
18.05.2020 13:58
Запишите, вставляя недостающие буквы, произведите орфографический разбор выделенных слов. 1. В син..м неб., звёзды блещ..т, в син....
Andrey245667
18.05.2020 13:58
Расскажите о правописании частиц бы, ли, же. Составьте и запишите 4—5 предложений, чтобы показать, что вы умеете видеть и обозначать орфограмму-пробел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
B:=A*A*A;
End;
Var
A,B,C,D,E:longint;
Begin
ReadLn(A,B,C,D,E);
PowerA3(A,A);
PowerA3(B,B);
PowerA3(C,C);
PowerA3(D,D);
PowerA3(E,E);
WriteLn(A,' ',B,' ',C,' ',D,' ',E)
End.
1 2 3 4 5
1 8 27 64 125