Вычислить сумму натуральных чисел не превосходящую заданное число а, while

Вычислить сумму натуральных чисел не превосходящую заданное число а

По данному натуральному числу N найдите наибольшую целую степень двойки, не превосходящую N. Выведите показатель степени и саму степень. Операцией возведения в степень пользоваться нельзя! Phyton Цикл While

Вычисляемая последовательность чисел по формуле: 1 / ((sqrt (n^2 + 1) + sqrt (n^2 - 1)), где n=1,2,3 ... Определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую Е.

Вычислить сумму всех четных натуральных чисел меньше данного n. задач вычислить сумму всех четных натуральных чисел меньше данного n. задача по информатике

Переделать задачи для for 1) q:=5; d:=1; while q>0 do begin d:=d+q; dec (q) end; writeln (q,' ', d) ; 2) q:=5; d:=1; while q>0 do begin dec (q) ; d:=d+q end; writeln (q,' ', d) ; 3) q:=5; d:=1; while q>0 do dec (q) ; d:=d+q; writeln (q,' ', d) ;