Используя данную таблицу расшифруйте следующее сообщение таблица 17​

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.