1.Мощность - 52, значит 5 символв для кодирования 1 символа не хватит, т.к 2^5<52, а вот 2^6=64>52, значчит нам как раз подходит (то что больше это не важно главное чтоб хватало, и меньше не было) значит 1 сивол занимает 6 бит информации, значит 3000 сиволов занимают 3000*6 бит информации, = 18000 бит /8 = 2 250 байт. это чуть больше 2 Кбайт.
2. 256 = 2^8, значит 1 символ содержит 8 бит информации. 1 Мбайт = 2^23 бит, значит 2^23/2^5=2^17 бит. Значит символов у нас 2^17/2^3= 2^14, это 16 384 символа.
<span>ПРости забыла обозначения) поэтому только так</span>
Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]
Sub InitCells()
Dim a(1 To 5, 1 To 5)
Randomize Timer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Range("A1:E5") = a
End Sub
Ниже представлен текст программы, вычисляющей значение t по формуле
Sub Main()
a = Range("A1:E5")
s = 0
For i = 1 To 5
p = 1
For j = 1 To 5
p = p * a(i, j)
Next j
s = s + p
Next i
MsgBox "t=" + CStr(s)
End Sub
Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.
var s:real;
begin
s:=112.24973;
writeln (s:6:2);
end.
Вывод
112.25
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.