4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108
Если правильно понял задание. На будущее, желательно указывать в чем работаете.
а) 5
б) 4
в) 40
г) 1
Количество символов, которые используются для записи пароля: 10+26 = 36.
Для кодирования одного из 36 символов требуется log(2)36 ≈ 6 бит.
Для хранения одного пароля необходимо 6*9 бит = 54/8 байт ≈ 7 байт.
Объем памяти, необходимый для хранения сведений о паролях 100 пользователей: 7*100 = 700 байт.
ans = max(map(float, input("Введите 3 числа: ").split()))
print("Максимальное из введённых - " + str(ans))