Исполните алгоритм s=745 и s=1864. составьте соответствующие таблицы значений переменных 20

по формуле n= найдем, сколько было круглых фигурок -  = 4; всего фигурок было 15+4=19. ответ: 19

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

(5)aabaabcaabaabcdaabaabcaabaabcde(6)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg

на 64 месте: а