Решить в паскале: в символьном массиве из 6 элементов, заданных с клавиатуры, удалить символы «=». жду быстрого и правильного ответа)

Var  s,s1: string; i: integer; begin  readln(s); for i: =1 to 6; if s[i]='=' then s1: =s1 else s1: =s1+s[i]; writeln(s1); end.проверь, я не помню можно так или нет

Переводим x и y в двоичную систему - это все же два числа, а не четыре, как если бы из двоичной переводить z. цифры шестнадцатиричного x расписываем по двоичным , а восьмеричного y - по . x = b7₁₆ = 1011 0111₂ = 10110111 y = 271₈ = 010 111 001₂ = 10111001 требуется найти z, которое находится между x и y. запишем в столбик, выравняв по младшему разряду, сначала x, потом варианты z и в конце y. то, что не будет попадать в интервал между числами в первой и последней строках, потом вычеркнем. 10110111 10111001 - равно нижнему, вычеркнем10011000 - меньше верхнего, вычеркнем10111000 - подходит - это ответ10110111 - равно верхнему, вычеркнем 10111001 ответ: 3) 10111000₂

Вот первое  var n,i: integer ; begin readln(n);   for i : = 1 to n do begin writeln ('осень');   end;   end. вот 2  var i: integer ; begin for i : = 20 to 50 do begin writeln (i);   end;   end.  вот 3  var i,n: integer ; begin for i : = 7 to 41 do begin if (i mod 2< > 0) then n: =n+i; end; writeln (n);   end.  и 4  var i,n: integer ; begin n: =1; for i : = 10 to 20 do begin if (i mod 2=0) then n: =n*i; end; writeln (n);   end.