Const n=10;
var a: array [1..n] of integer; - массив чисел
var i,j,s: integer;
begin
j:=0;
s:=0;
for i:=1 to n do a[i]:=random(100);
for i:= 1 to n do
begin
if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then
begin
s:=s+a[i]; j:=j+1;
end;
end;
writeln('число чисел, кратных 5 и 10 = ', j);
writeln('сумма чисел = ',s);
end.
1) На 24 буквы+ пробел=25*8=200, а на цифры без арифм.знаком достаточно полуслова (4 бита), 8=1000(2), значит 204 двоичного разряда.
2)7=2^i,i =<span><span>2,807355 бит на 1 нотный знак
</span></span><span>
2,807355*180=</span><span><span>505,3239 бита
3)N=2^i, 8=2^i, i=3 бита</span></span>
A=45 b=14
a:=45div14=3
b:=3*14=42
a:=42div3=14
a=42 b=14
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000