Цикл с предусловием

Задача 1. Подсчитать сумму всех нечётных чисел от 101 до 301.

Какие действия повторяются? Находится очередное нечётное число, которое больше предшествующего нечётного числа на 2. Суммируются очередные нечётные числа.

Введём обозначения: s – сумма всех нечётных в указанном промежутке; I – очередное нечётное число в промежутке от 101 до 301.

Н S:=0 i:=101 i

Задача 2. Дана арифметическая прогрессия а1=2, d=4. Сколько нужно взять членов прогрессии, начиная с первого, чтобы их сумма превысила заданную величину z. Написать программу решения задачи. Вывести искомое число слагаемых, значение суммы и последнее слагаемое.

Какие действия повторяются? Каждое следующее число больше предшествующего на одно и тоже число d. Сумма увеличивается на число равное очередному члену последовательности. Увеличивается номер члена последовательности на 1.

Введём обозначения: А – очередное число ряда арифметической прогрессии. S – сумма членов ряда. I - номер члена последовательности D – разность арифметической прогрессии. Z – число вводимое с клавиатуры

н z А:=2 S:=a i:=1 D:=4 S

Program arifm_pr; Var d,s,i,a,z: integer; Begin Writeln(Введите значение числа z); readln(z); A:=2; s:=a; i:=1; d:=4; Writeln(a(1)=2); While s