Дана последовательность корень из 10,9,8,...1. Найти количество членов последовательности...

Question

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

Answer 1

// 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

Comments

Здраствуйте, мы еще не проходили такие команды, можете упростить?

Answer 2

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;<br>writeln('k = ',k);
end.

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

Comments

Могли бы вы еще одну программу написать?

---

В паскале выдает ошибку "Не расставлены круглые скобки)

---

Со скобками в программе всё в порядке.