6. Составьте алгоритм вычисления произведения четных чисел в диапазоне от -30 до 20.

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

расстояние в сантиметрах разделить на число сантиметров в одном метре

отсканированный текст является изображением и по сути ничем не отличается, например от фотографии. отсканированный текст нужно распознать специальным софтом, лучше всего с abby fine reader, после этого текст можно редактировать.

{кажется так. если будет ощибка в лс напиши}

program rrr;

uses crt;

var a,b,c,s: integer; {если будут дробные значения то вместо integer ставь real}

begin

writeln('введи стороны треугольника: '); read(a,b,c);

if a*a=b*b+c*c then

begin

s: =b*c/2;

writeln('площадь=',s);

end

else if b*b=a*a+c*c then

s: =a*c/2;

writeln('площадь=',s);

end

else if  c*c=a*a+b*b then

s: =a*b/2;

writeln('площадь=',s);

end

else s: =a+b+c;

writeln('периметр= ',s);

readln;

end.