Составить графический алгоритм определения произведения всех четных чисел натурального ряда из интервала от 19 до 65

159

467

Посмотреть ответы 1

Ответы на вопрос:

kulanforever

Информатика

4,5(70 оценок)

Способ с циклами: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифм. прогресии: '); readln(n); for i: =1 to n do a: =a+d; writeln(n, ' член арифметической прогресии равен : ', a); end. способ без циклов: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифметической прогресии: '); readln(n); writeln(' ответ: ', a+d*(n-1)); end.