Найти значение выражения : (a+(d-12)*3)*(c-5*k) где значения переменных a, b.c и k вводится с клавиатуры.

На паскале: var a,d,c,k: integer; begin writeln('vvedite znachenie peremennoj a'); readln(a); writeln('vvedite znachenie peremennoj d'); readln(d); writeln('vvedite znachenie peremennoj c'); readln(c); writeln('vvedite znachenie peremennoj k'); readln(k); res: =(a+(d-12)*3)*(c-5*k); writeln('(a+(d-12)*3)*(c-5*k)=',res); readln; end.

1. это в четверичной системе 1*16+4*3+2=30 2.                   1       7     3  +                         7     6 сумма     2     7     1 8 в нулевой степени -  6+3= 1 в следующий разряд и остаток 1 в этот 8 в первой  степени 7+7+1 (из нулевого разряда) = 1 в следующий разряд   и 7 остатка в этот 8 в квадрате - 1+1 (из первого разряда)=2

Алгоритм 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