Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
<span>end.</span>
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))
Видимо, "microsoft word ЯВЛЯЕТСЯ РАЗНОВИДНОСТЬЮ <span>текстовых редакторов.</span>
Var
i,p:integer;
a:array[1..20]of integer;
begin
writeln('Массив: ');
p:=1;
for i:=1 to 20 do
begin
a[i]:=random(10);
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
writeln('Произведение ненулевых: ',p);
<span>end.</span>