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

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

Здравствуйте, Вы предлагаете "упростить" программу из одной строки? И второе, я не могу залезть в Вашу голову и угадать, что "проходили", а что нет. Нужно писать в вопросе диалект языка, который изучается, а Вы не потрудились даже указать название языка "Паскаль".