Определить условие задачи, для решения которой составлена данная программа def XXX (b):
if b==0: return "No"
if b==1: return "Yes"
elif a % b == 0:
return "No"
else: return XXX (b-1)
Определить, больше ли сумма цифр у первого введенного числа, чем второго
Определить, больше ли единиц, чем нулей, в записи положительного двоичного числа
Определить, является ли введенное число простым
Определить, больше ли цифр в записи первого введенного числа, чем второго

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

прости что не решила  

writeln('a[',i,']=',a[i]);

readln;

end.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному