Прибавим в степень еще действия выше, получим - Для того, чтобы найти размер файла умножаем скорость на время, получаем: бит Переводим в мегабайты, учитывая, что Мб: Мб
ответил так, чтобы можно было решать такие задачи на бумаге. Т.е. путем представления цифр в виде "2 в степени"
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200} var i,n:integer; a:longint; p:real; begin p:=1; Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); p:=p*a; end; writeln(p); end.
2) var i,n:integer; a,max:longint; begin Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); if a>max then max:=a; end; writeln(max); end. 3) var i,n:integer; a,min:longint; begin Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); if a<min then min:=a; end; writeln(min); end.
бит
Мб:
Мб
Объяснение:612 в троичной будет211200, значит две единицы