Дано целое положительное число. проверить истинность высказывания: «данное число является нечетным трехзначным». входные данные: ввести одно целое положительное число a ((1< =a< =1000 выходные данные: вывести слово «true» если высказывание для предложенных исходных данных является истинным или «false» в противном случае.

A: integer; begin read(a); if (a > 99) and (a < 1000) and (not odd(a)) then write('true') else write('false'); end.

Var i,n,j,m: integer; mass: array[1..100] of integer; begin read(n); for i: =1 to n do read(mass[i]); for i: =n-1 downto 1 do for j: =1 to i do        if mass[j]> mass[j+1] then begin                m: = mass[j]; mass[j]: = mass[j+1];                 mass[j+1]: = m;             end; for i: =1 to n dowrite(mass[i]: 5); end.                         

1.первое число - целочисленный тип второе - вещественный разные диапазоны  2.1) s : = (x1+x2)/2 2) dec(k) или k: =k-1 3) inc(i) или i: =i+1 4) sum : = t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;   kt, kr, kk - количество тетрадей, ручек и карандашей)    2. а) значения функции y=х(в квадрате) var y,x: real   б) площади прямоугольника var a,b,s: real   в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек var kv: integer; st,so,sum: real   г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей var kvt,kvr,kvk: integer; st,sr,sk,sum: rea