Составить программу, которая определяет, чётно или нечётно количество символов в слове

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

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

    readln;

end.

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

program pr;

s: string;

begin

readln (s);

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

readln;

end.

Если 18 деревьев посадили в один ряд, то между ними всего 17 трёх метровых отрезков, что хорошо видно если это представить графически^ ||||||||||||||||||     1      2      3      4      5      6    7      8      9      10  11    12    13, 14    15    16  17 значит от первого дерева, до 18 будет 17*3=51 метр. ответ: 51 метр между крайними деревьями

Const      n = 10; m = 10; var    arr: array[1..n,1..m] of byte;     i,j,a,b,buff: byte; begin    for i: =1 to n do begin        for j: =1 to m do begin            read(arr[i,j]);         end;     end;   for j: =1 to m do begin        buff : = arr[1,j];         arr[1,j] : = arr[10,j];         arr[10,j] : = buff;     end;     writeln('==============');     for i: =1 to n do begin        for j: =1 to m do            write(arr[i,j]: 3);         writeln;     end; end.