N=int(input())
a=[]
for i in range(n):
(пробел)a.append=int(input())
a=sorted(a)
a=reverse(a)
print(a)
Я так понимаю, нужно число страниц найти.
9408 / (log2(256) / 8 * 28 * 48) = 7 страниц.
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "");
float a;
char e;
while (e!='n')
{
cout<<"введите рост танкиста (в сантиметрах) ";
cin>>a;
if (a <= 170)
cout<<"годен в танкисты"<<endl;
else
cout<<"не годен в танкисты"<<endl;
cout<<"ещё раз? (y/n) ";
cin>>e;
}
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Я так понимаю, необходимо написать программу по нахождению площади..
var
a, b, c:integer;
p:real;
begin
writeln('Введите значения длин сторон треугольника ');
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
p:=(a+b+c)/2;
write('Площадь треугольника = ',(sqrt(p*(p-a)*(p-b)*(p-c))):0:2);
end.