Вывести значение и номер члена заданной последовательности, меньшего 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.
                        

Оцени полезность:

10 голосов , оценка 4.3 из 5

Похожие ответы