Вывести значение и номер члена заданной последовательности, меньшего 10 - PascalABC.NET
Формулировка задачи:
Дана последовательность: p(n)=1/2;4/4;...;n*n/2. Составить программу, выводящую на экран значение и номер члена последовательности, меньшего 10.
Решение задачи: «Вывести значение и номер члена заданной последовательности, меньшего 10»
textual
Листинг программы
var n:integer; begin n:=1; while n*n/2<10 do begin writeln(n*n/2); n:=n+1; end; end.