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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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