Й. Ривкинд 10(11) стр 86 номер решить!! Вибирете правильный ответ : (букву)
Є  база  даних,  у  якій  ведеться  облік  товарів  на  складах .  Визначте  типи зв’язків,  які  треба  встановити  між  об’єктами  таблиць  Товар  і  Склад  за  умов:

a) є  кілька  видів  товару  та  є  кілька  складів,  кожний  товар  зберігається  на одному складі й на кожному склад і зберігається тільки один вид това ру;
b) є  кілька  видів  товару  та  є  кілька  складів,  на  кожному  складі  є  всі  види  товарів;
c) є тільки один вид товару і він збер ігається на одному складі;
d) є кілька видів товару і всі вони зб ерігаються на одному складі;​

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

понадобится 24 секунды.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

var i, j, k, p: integer; a, b: array[1..10] of integer;

begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.