Var
s : String;
Begin
{Readln(s);}
s:='abcd sf dsf rfg test';
While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1);
Writeln(s);
end.
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
На до взять удалить его и перезагрузить комп 2 ити к компьюторному мастеру
Тип - (назначение, если так можно выразиться) определяет какие значения может принимать. напр. целый, вещественный,строковый,символьный,логический и др.
имя - название по которому к переменной можно обратится напр. a,b,djksghkjd4545725 )))
значение - ну э... блин это значение. напр. 123 , 878.447 , рррапорл , true
1, 2, 5, 9 -однозначные числа