Напишите программу вычисления выражения: s = х3 + х5 + хn

Напишите программу вычисления выражения: s = х3 + х5 + хn, где х и n вводятся с клавиатуры. Используйте подпрограмму вычисления степени.

Ответ

Здесь нет явных ограничений на х и n. В связи с этим может возникнуть потребность в типе longint.

program vyrazhenie;
var х, n : integer; s: longint;
function st (а, b: integer): longint;
var i: integer; rez: longint;
begin
rez:= 1;
for i:=1 to b do rez:=rez*a;
st:=rez
end;
begin
write (‘х = ‘);
readln (х);
write (‘n = ‘);
readln (n);
s:=st(x, З)+st(x, 5)+st(x, n);
writeln (‘s = ‘, s)
end.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

одиннадцать + девять =