Напишите программу, принимающую на вход целое число, которая выводит True, если переданное значение попадает в интервал (−15,12]∪(14,17)∪[19,+∞) и False в противном случае

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

800*600*24*4/8=5760000 байт=5625 кбайт

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.

сначала определяем к-во символов в каждой  строке

1-1 2-3 3-7 4-15 5-31 6-63 7-127

7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено

две 6-х строки, определяем номера начала и конца каждой строки

6(1-63)  6(64-126)  g(127)

видим что нужные символы во 2-й 6-й строке

6-я строка состоит из символа f к которому слева добавлено

две 5-х строки, определяем номера начала и конца каждой строки

5(64-94) 5(95-125) f(126)

нужные  символы во 2-й 5-й строке

5-я строка состоит из символа e к которому слева добавлено

две 4-х строки, определяем номера начала и конца каждой строки

4(95-109) 4(110-124) e(125)

и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней, 

aabaab c(116)  a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)

таким образом нужные символы caabaa

алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки