АЮ
Андрей Ющуков
Даны целое n и действительный а1, а2,...аn. найти члены последовательности, принадлежащие отрезав [1;2]
..аn. найти члены последовательности, принадлежащие отрезав [1;2]. Написать программу в паскале без массивов
..аn. найти члены последовательности, принадлежащие отрезав [1;2]. Написать программу в паскале без массивов
K := 0;
for i := 1 to N do begin Write('a[', i, '] = '); ReadLn(A); if (A >= 1) And (A