Розв’язок задачі з Абрамова №97

Всі умови | Умова: Дано натуральне число n, знайти:
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №97)

Розв'язок на Pascal

program pr97;
uses
	math;
var
	x, y, sum : real;
	n, i : integer;
begin
   // https://www.youtube.com/watch?v=jVbFps__Ov8
   write('n = '); readln(n);
   x := 1;
   y := 1;
   sum := x / (1 + abs(y));
   for i := 2 to n do
   begin
      y := x + y;
      x := 0.3 * x;
      sum := sum + x / (1 + abs(y));
   end;
   
   writeln('SUMA = ', sum:10:5);
   readln;
end.

Розв'язок на С++

#include 
#include 
#include 

using namespace std;

//PTN PNH
int main(int argc, char **argv)
{
	float x, y, sum;
	int i, n;
	
	cout << "n = " ;
	cin >> n;
	
	 x = 1;
	 y = 1;
	 sum = x / (1 + abs(y));
	 
	 for ( i = 2; i <= n; i++ ) {
		y = x + y;
		x = 0.3 * x;
		sum = sum + x / (1 + abs(y));
	 }

	cout << "SUMA = " << sum << endl;
	
	//Glory to Ukraine
	return 0;
}