// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
function Pow(x,y:BigInteger):BigInteger; begin Result:=x; for var i:=int64(2) to int64(y) do Result*=x end;
begin var x,y:integer; Write('Введите натуральные х и у: '); Read(x,y); if (x<=0) or (y<=0) then begin Writeln('Неверный ввод'); Exit end; if x=1 then Writeln('Результат: ',y+1) else begin var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b); Writeln('Результат ',Pow(x,y)+Pow(y,x1)) end end.
Пример Введите натуральные х и у: 5 8 Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
1 - ЭЛТ, ЖК, PDP, Плазменный, LED, OLED, Лазерный, Виртуальный ретинальный монитор(ы) - (есть и другие, но наверно учитель твой не шарит в этом...)
2 - NumLock
3 -
4 - Шариковый манипулятор мыши
5 - 4-е поколение1977 – 1991 гг. (большие и сверхбольшие интегральные схемы- микропроцессоры (десятки тысяч- миллионы транзисторов в одном кристалле)) Основные черты этого поколения ЭВМ — наличие запоминающих устройств, запуск ЭВМ с системы самозагрузки из ПЗУ, разнообразие архитектур, мощные ОС, объединение ЭВМ в сети.
7 - Цифровая печатная машина (ЦПМ) или полно-цветной МФУ (многофункциональное устройство) , или просто полно-цветной принтер определенного размера.
8 - Microsoft Power Point (Для докладов в виде презентации), Microsoft Office (Для докладов в видео листа бумаги)
9 - Для ввода: Микрофон, Цифровой диктофон, Модем Для вывода: Встроенный динамик, Колонки, Наушники.
10 - Куллер внутренний(для охлаждения видеокарты), Материнская плата, Процессор,(Голый ЦП :)), Оперативка, Жёсткий диск, куллер на процесор, видеокарта, блок питания.
11 - Системный блок, Монитор, Клавиатура (Некоторые персональные компьютеры имею встроенный сенсорный экран, по этому мышка не требуется), Мышка.
12 - Строка заголовка, Строка меню, Панель инструментов, Рабочая область, Палитра, Полосы прокрутки, Строка состояния и что-еще, прости если чего-то не будет хватать, не помню уже точно...
13 - Я конечно сдаю информатику, но это крайний стояк... 1.1 Неправильное положение тела 1.2 Общее недомогание: сонливость, утомляемость, не проходящая усталость (даже после отдыха); головные боли после работы; глазные боли; напряженность мышц верхней части туловища) 1.3 Нарушения визуального восприятия 1.4 Ухудшение сосредоточенности и работо
14 - SHIFT
15 - Линейное, Нелинейное, Гипермедиа, Живое видео (Мне рассказали только 4 вида мультимедии, моя оплошность, сорян бро :) )
10
Объяснение:
Буду считать что на месте пропуска между a и b стоит ">", а синтаксис языка Pascal
if (условие) then ЕСЛИ условие верно, ТО
:= - оператор присваивания
смотрим выполняется ли условие
10 > 10; это неверно, то есть строка которая идет после then игнорируется
Таким образом после выполнения a будет равно 10 т. к. не изменялось