1 килобайт=1000 байт
Значит 10 килобайт=10000 байт
Схема показана в прилагаемом файле.
def next_1():
----destroy_object = [welcome_lbl, main_lbl, next_btn]
---- object_name in destroy_object:
--------object_name.destroy()
----next_btn2 = Button( width=50, height=5, font=20)
----next_btn2.pack()
1. Выводим формулу:
2. Алгоритм:
1) b = a * a; (b = a²)
2) c = b * b; (c = a⁴)
3) d = c * c; (c = a⁸)
4) a = d * b; (a⁸·<span>a² = </span>a¹⁰)
Блок-схемы в приложении
Const
n=5; // количество чисед
var
i,k:integer;
s:longint;
m,d,dc:real;
a:array[1..n] of longint;
fin,fout:Text; // файловые переменные для ввода/вывода
begin
Assign(fin,'input.txt'); Reset(fin); // файл готов к чтению
s:=0;
for i:=1 to n do
if not Eof(fin) then begin
Read(fin,a[i]);
s:=s+a[i]
end
else begin
Writeln('Во входном файле недостаточно данных');
Close(fin);
Exit
end;
Close(fin);
m:=s/n;
d:=Abs(a[1]-m); k:=1;
for i:=2 to n do begin
dc:=Abs(a[i]-m);
if dc<d then begin
k:=i; d:=dc
end
end;
Assign(fout,'output.txt'); Rewrite(fout); // файл готов к записи
Writeln(fout,a[k]);
Close(fout)
end.
