Для какого наименьшего целого неотрицательного числа А выражение
(x + 2y < A) \/ (y > x) \/ (x > 20)
тождественно истинно, т. е. принимает значение 1 при любых целых неотрицательных x и y?​

1. первая правая цифра числа показывает число единиц, вторая - число двоек (1·2) , третья - число четверок (2·2), четвертая - число восьмерок (4·2) и т.д. имеем:

111101₂ = 1·1 + 2·0 + 4·1 + 8·1 + 16·1 + 32·1 = 1+4+8+16+32 = 61₁₀

2. число нужно поделить на два, найти остаток. полученный результат снова поделить на два и найти остаток и т.д. остатки, записанные в обратном порядке и есть запись в двоичном исчислении.

65÷2 = 32 (ост.1)

32÷2 = 16 (ост.0) 

16÷2 = 8   (ост.0) 

8÷2 = 4     (ост.0) 

4÷2 = 2     (ост.0) 

2÷2 = 1     (ост.0)

1÷2 = 0     (ост.1)

65₁₀ = 1000001₂     

плата вроде как, если не ошибаюсь

var a,b,c: real; beginwriteln('введите данные о катетах'); readln(a,b); c: =1/2*a*b; writeln('площадь= ',c: 0: 2); readlnend.

  если паскаль абс, то предпоследнюю строку не обязательно.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.