2. между ввода и вывода впишите в алгоритм несколько команд присваивания, в результате чего должен получиться алгоритм возведения в 4-ю степень введённого числа (дополнительные переменные, кроме a, не использовать):
36^7 = 6^2^7 = 6^14 следовательно 36^7 в шестиричной СС будет 1 и 14 нулей. 6^19 в шестиричной СС будет 1 и 19 нулей. тогда полученное число 1 -> 4 нуля -> 1 -> 14 нулей. пока их 18 теперь от полученного отнимем 18 в СС с основанием 6. 18(10) = 30(6) 0 - 0 = 0 (последний разряд числа) далее по принципу вычитания "занимаем" разряды до ближайшей единицы. после чего у нас остаётся 3 в предпоследнем разряде и 12 цифр 5. итого у нас 12 пятёрок, тройка и единица. так как число 20 разрядное, то 20 - 14 = 6 нулей в записи числа в СС с основанием 6 ответ: 6
Можно и в лоб посчитать, тогда получим 10000055555555555530
Var f:text; max,min,p:real; maxn,minn,n,i:integer; ar:array of real; s:string; begin max:=real.MinValue; min:=real.MaxValue; n:=0; assign(f,'text.txt'); reset(f); while not(Eof(f)) do begin read(f,p); inc(n); setlength(ar,n); ar[n-1]:=p; if ar[n-1]>max then begin max:=ar[n-1]; maxn:=n-1; end; if ar[n-1]<min then begin min:=ar[n-1]; minn:=n-1; end; end; close(f); swap(ar[minn],ar[maxn]); for i:=0 to n-1 do if i<>n-1 then s:=s+floattostr(ar[i])+' ' else s:=s+floattostr(ar[i]); rewrite(f); write(f,s); close(f); end.
Пример содержимого text.txt: 0 -2.1 1.1 Пример содержимого text.txt после работы программы: 0 1.1 -2.1
begin
a := sqr(a);
a := sqr(a);
write(a);
end.