Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
РомаУзденов
11.07.2021 00:45 •
Информатика
Программу в паскале.возвести число a в 13 степень за 5 операций
Показать ответ
Ответ:
Lenechka20
24.06.2020 06:26
Uses crt;
var a:integer;
x1,x2,x3,x4,x5:longint;
begin
readln(a);
x1:=a*a;
x2:=x1*a;
x3:=x2*x1;
x4:=x3*x2;
x5:=x4*x3;
writeln(x5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nashinvo
06.06.2022 03:57
Водной из кодировок utf-16 каждый символ кодируется 16 битами. гриша написал текст (в нём нет лишних пробелов): «бобр, белка, суслик, мышовка, выхухоль,...
ainashsharipov
14.06.2020 01:12
Пропускная некоторого канала связи 114 688 бит/ с. сколько времени займёт передача файла объёмом 350 кбайт по этому каналу?...
211019831
11.03.2023 06:40
4. отметьте верный признак объекта: a. величинаб. значениев. свойствог...
ДианаКараханова77
02.07.2021 13:24
Сколько cd объемом 400 мбайт потребуется для размещения информации полностью занимающей жёсткий диск емкостью 50 гбайт?...
Inna21042002
13.01.2020 01:13
50 ! запиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на тина . ! ответ не...
Xxxin
21.01.2021 01:01
Программа которая определяет количество символов в слове...
pep4
23.05.2022 18:27
Будь ласка скажіть відповідь. У школі облаштовують три нові класи для семикласників. За однією партою може сидіти не більше двох учнів. Яку найменшу кількість парт потрібно...
stanislavcoola
18.02.2022 05:59
Here are the words but the letters are mixed up. Write the correct variant: 1. verreco to 2. dateinvali to 3. pingswee...
kolya14445
27.07.2020 18:11
Знайдіть одну з первісних F (x) для функції f (x) = 1/cos^2 x...
saaashaaa4656
31.08.2022 20:37
Решите и распишите все...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
x1,x2,x3,x4,x5:longint;
begin
readln(a);
x1:=a*a;
x2:=x1*a;
x3:=x2*x1;
x4:=x3*x2;
x5:=x4*x3;
writeln(x5);
end.