Ответ:
2
Объяснение:
Вначале i =3.
Цикл while выполняется, пока заданное условие истинно. В нем, в частности, i каждый раз уменьшается на 1.
После первого "Привет" i = 2, после второго - 1, и дальше не надо уже. Значит, выражение у while при i = 1 должно стать ложным, а при i>1 оставаться истинным. В нем указано отношение >=, т.е. надо указать 2 и при 1 оно уже не выполнится.
На иконке ярлыка в нижнем левом углу стрелка
<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
Программа для решения задачи - в прилагаемом файле.