Решите Паскаль срочно. Задача во вложениях!!!
При решении не используйте массивы пожалуйста, а используйте цикл While.
var
k,n,x:integer;
z,s:real;
begin
readln(x,n);
z:=1;
s:=0;
k:=1;
while k<=n do
begin
s:=s+z;
z:=x/k * z;
k:=k+1;
end;
write(s:5:2);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
