Задание 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
Доказательством ..... Ну может. Хотя.. Просто странно
javascript:var м = []; for (let сч = 0; сч < 10; сч++) м.push(prompt()); alert(м.reduce(function (пр, тек) { return пр + (тек < 0 ? тек : 0); }, 0));
Program znanija;var i,n,j,sum:integer;s:string;a:array[1..100] of integer;beginn:=0; sum:=0;for i:=1 to 10 do begin writeln('Введите ',i,'-ый элемент массива [-100;500]'); read(a[i]); s:=inttostr(a[i]); j:=length(s); if (a[i] mod 5 = 0) and (strtoint(s[j])<>0) then n:=n+1; if a[i] mod 2 = 0 then sum:=sum+a[i]; end;writeln;writeln; writeln('Кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n);writeln;writeln('Сумма всех четных чисел ',sum);end.