Жарасхан работает в корпорации "асем". есть документы, составленные в б. на странице каждого документа написано секретное число — ai. кроме того, жарасхан дает приказы от руководителей. существует 3 вида приказов: в первом виде приказов руководитель просит сообщить секретное число первого документа и удалить этот документ. во втором виде приказов руководитель просит сообщить секретное число последнего документа и отменить этот документ. в третьем виде приказов руководитель сообщает секретное число среднего документа в цепочке документов и просит аннулировать этот документ. если в цепочке отсутствует средний документ, то по центру необходимо получить соответствующий документ. но жарасхан заранее знает, что последовательность передаваемых приказов повторяется. в частности, руководитель присваивает первый вид приказа, затем второй, затем третий, один за другим, повторно. до окончания перечня документов, приказы руководителя не прекращают. в этот момент жарасхан работал, жарасхан попросил вас .
1) a x a = a² ⇒ b; b x a = a³ ⇒ результат
2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net
var
a,b,c,y:real;
begin
Write('Введите число: '); Read(a);
b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
c:=b*b; c:=c*c; y:=b*c;
Writeln('Десятая степень числа равна ',y)
end.
Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024
Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.