Получить и вывести на экран последовательность чисел - Pascal ABC
Формулировка задачи:
Сначала решить задачу, используя цикл While, затем - цикл Repeat.
Пусть . Получить и вывести на экран последовательность чисел , если , где
Код к задаче: «Получить и вывести на экран последовательность чисел - Pascal ABC»
program prim; uses crt; var y:array [1..25] of real; i:byte; begin y[1]:=1; writeln(y[1]); y[2]:=2; writeln(y[2]); i:=3; while i<=25 do begin y[i]:=(sqr(y[i-1])+y[i-2]+y[i-1])/i; writeln('y[',i,']',y[i]:5:3); inc(i); end; end.
14 голосов, оценка 4.143 из 5
СОХРАНИТЬ ССЫЛКУ