Найдите n-ый член арифметической прогрессии (n> 0) c некоторым шагом арифметической прогрессии d> 0 т.е. первый член арифметической прогрессии следует ввести с клавиатуры. если можно с использованием циклов.

233

299

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

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

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.

Polinka80

Информатика

4,4(95 оценок)

~n/3 достаточно. бросаем первый с этажа номер n/3. если разбился, то бросаем второй по очереди с 1 этажа, потом со 2, до n/3 пока не разобьется. так найдем этаж. если первый шар не разбился. бросаем его с этажа 2n/3. если тут разбился, то бросаем второй с этажа n/3+1, потом с n/3+2, пока не разобьется. если 1 шар при падении с 2n/3 не разбился, то бросаем его с 2n/3+1, потом с 2n/3+2, пока не разобьется.