Номер 8, страница 30 - гдз по информатике 9 класс учебник Босова, Босова

Параграф 1.2. Запись вспомогательных алгоритмов на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 8, страница 30.

Условие.

8. Напишите программу вычисления выражения

s = х³ + х⁵ + хⁿ,

где х и n вводятся с клавиатуры. Используйте подпрограмму вычисления степени.

Решение.

var n, n1, x, r, k, i: integer;
// Процедура вычисления степени
procedure stepen (var a,b: integer; var z: integer);
var i:integer;
begin
z:=1;
for i:=1 to b do z:=z*a;
end;
begin
r:= 0;
write ('Введите n = ');
readln (n);
write ('Введите x = ');
readln (x);
for i:=1 to n do begin // Цикл, где вычисляется х в степени от 1 до n
stepen (x, i, k);
r:= r + k;
end;
writeln ('Результат: ', r); //Вывод на экран результата
end.