Question

В Паскале, подробно.
Составьте программу

Answer 1

1)
program prog;var a, a2, a3, a5, a10: integer;begin write('Введите число '); readln(a); a2 := a * a; a3 := a2 * a; a5 := a3 * a2; a10 := a5 * a5; writeln('Число в третьей степени: ' + a3); writeln('Число в десятой степени: ' + a10);end.

2)
program prog;var r: real;begin write('Введите радиус: '); readln(r); writeln('Длина окружности: ' + 2 * 3.14 * r); writeln('Площадь круга: ' + 3.14 * r * r);end.