Задание 1
var
s:string;
digit:set of '0'..'9';
i,imax:integer;
begin
Write('Введите строку: '); Readln(s);
imax:=Length(s)-1;
i:=imax;
digit:=['0'..'9'];
while i>=2 do begin
if (not (s[i] in digit)) and (s[i+1] in digit) and (s[i-1] in digit)
then Delete(s,i,1);
Dec(i)
end;
Writeln('Результат: ',s)
end.
Тестовое решение
Введите строку: 12*3aa456*78aa
Результат: 123aa45678aa
2 и 3
1 точно не то. в двоичной системе 0 и 1 используется
4 ну и русский язык.... он не для всех
1) 560-120=440 номеров удалили.
2) 2500-440=2060 номеров осталось
Вроде так.
Y =-44 так как - 22 меньше минус 20 (у отрицательных все наоборот) поэтому y = -22*2 = -44