Question

Дана последовательность корень из 10,9,8,...1. Найти количество членов последовательности лежащих в [2;3]

Answer 1

var i,k:integer;
begin
k:=0;
for i:=10 downto 1 do
 if (sqrt(i)>=2)and(sqrt(i)<=3) then k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 6

Answer 2

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  1.To(10).Where(t->Sqrt(t).InRange(2.0,3.0)).Count.Println;
end.

Результат
6