На прямой дороге расположены подряд город и четыре деревни. От города до первой деревни a км, до второй — b км, до третьей — c км, до четвертой — d км. Аня выехала из города в сторону деревень и проехала n км. Даны числа n, a, b, c, d. Выведи "ДА", если Аня находится между первой и второй деревней (включительно) или между третьей и четвертой, а иначе "НЕТ".

На прямой дороге расположены подряд город и четыре деревни. От города до первой деревни a км, до второй — b км, до третьей — c км, до четвертой — d км. Аня выехала из города в сторону деревень и проехала n км. Даны числа n, a, b, c, d. Выведи "ДА", если Аня находится между первой и второй деревней (включительно) или между третьей и четвертой, а иначе "НЕТ".

begin

 var n := readreal('введите число n: ');

 var a := readreal('введите число a: ');

 var b := readreal('введите число b: ');

 var c := readreal('введите число c: ');

 var d := readreal('введите число d: ');

 if (n >= a) and (n <= b) or (n >= c) and (n <= d) then print('ДА')

 else print('НЕТ');

end.

Выводим "ДА", если a ≤ n ≤ b (это значит, что Аня находится между первой и второй деревней включительно) ИЛИ если c ≤ n ≤ d (это значит, что Аня находится между третьей и четвёртой деревней включительно). Во всех остальных случаях выводим "НЕТ".

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

2           5

4           7

8           9

16         11

32

*2           +2

чётное порядковое число умножается на 2

нечётное порядковое число увеличивается на 2

2) 3, 8, 15,  24,  35, 48,  63, 80

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

(к предыдущему ответу прибавляется по порядку идущее нечётное число)

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.