Составьте блок-схему и программу вычисляются сумму чисел s=1+7+13+ тех пор пока сумма не превышает 1000

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.

Алгоритм может быть, например, таким. если нужно вывести нулевое число фибоначчи, выведем 1, иначе будем считать. сохраним в переменную номер текущего числа фибоначчи (изначально 1) и значения текущего и предыдущего элементов (в начале 1 и 1), затем в цикле будем пересчитывать значения элементов, увеличивая номер текущего элемента. когда номер элемента совпадёт с нужным, выведем ответ. реализация (python 3): n = int( if n == 0:     print(1) else:     prev, curr = 1, 1     i = 1     while i < n:         curr, prev = prev + curr, curr         i += 1     print(curr) запустив программу, можно узнать, что f10 = 89, f25 =  121393, а f40 =  165580141

program dl9_aniasss;

var c: real;

begin

writeln ('vvedit c');

readln (c);

c: =c*2;

writeln (c,'*2=',c);

readln

end. 

program funkci9;

var y,x: integer;

begin

x: =-4;

writeln ('y         x');  

while x< =4 do

begin 

y: =abs(x+2)

writeln (y,'     ',x);

x: =x+1;

end:

readln

end.