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>
С одной стороны 50 строк
с другой стороны код не скомпилируется, так как нет точки после end
78.4₁₂ = 7·12¹+8·12⁰+4·12⁻¹ = 7·12+8·1+4/12 = 84+8+0.3333... = 92.333...₁₀
Arr.foreach do |v| if (v < 0) neg++; else if (v > 0) pos++; else zero++; end;
<em><u>Замечание:</u></em> данные в файле должны быть записаны по одному числу в строке.
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'SuperFile.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Rewrite(f);
for i:=1 to n do Writeln(f,a[i],' ');
Close(f)
end.