Pascal ABC задание №5 с блок-схемой

Две фотографии на первой список заданий, включая пятое. На второй - блок-схема. Всё сделать на Паскаль АБС.

Вот решение задачи на Паскале АБС:

var x, sum, xn : real;
i, n : integer;
begin
readln(x, n);
sum := 1.0;
xn := 1.0;
for i := 1 to n do begin
xn := xn * x / i;
sum := sum + xn;
end;
writeln(sum);
end.

Вот еще скриншот из программы Pascal ABC с данным решением

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


Защитный код
Обновить