алг
нач
цел count, i, count1
целтаб A[1:10]
нц для i от 1 до 10
A[i]:=irand (20, 100)
вывод A[i], " "
кц
вывод " ", нс
count:=0
count1:=0
нц для i от 1 до 10
если mod (A[i], 2)=0
то count:=count+1
иначе count1:=count1+1
все
кц
вывод "четных ", count, нс, "нечетных ", count1
кон
1. Определяем количество точек в изображении
(5×24)×(4×24) = 24²×5×4 = 20×24² = 20×576=11 520
2. Определяем глубину цвета в битах
8192 < 15000 < 16384; 2¹³ < 15000 < 2¹⁴ ⇒ потребуется 14 бит.
3. Определяем объем памяти
11 520 × 14 = 161 280 бит = 161280/8 = 20 160 байт = 20160/1024 ≈ 19.7 Кбайт
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandom(100, -60, 140);
println(a);
println('Max = ' + a.Max);
println('Min = ' + a.Min);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№7</u>
begin
var (s,k,p):=(0,0,BigInteger(1));
var n:integer;
repeat
n:=ReadInteger;
s+=n; p*=n; k+=1;
until s>200;
Writeln('Кол-во= ',k,', S=',s,' П= ',p,', Ср.арифм= ',s/k)
end.
<u>Пример</u>
56
-231
220
118
-52
31
45
110
Кол-во= 8, S=297 П= 2679630617664000, Ср.арифм= 37.125
<u>//№8</u>
begin
var n:=Abs(ReadlnInteger('n='));
var x:=ReadlnInteger('Введите цифру');
var k:=0;
while n>0 do begin
var d:=n mod 10;
if d=x then k+=1;
n:=n div 10
end;
Writeln('Цифра ',x,' встретилась ',k,' раз(а)')
end.
<u>Пример</u>
n= 1235361212
Введите цифру 2
Цифра 2 встретилась 3 раз(а)
<u>//№9</u>
begin
var (a,b):=ReadInteger2('Введите a и b:');
for var i:=a to b do
if i.IsEven and (i mod 7<>0) then begin
var j:=Sqr(BigInteger(i));
Writeln(i:10,j:19,i*j:28)
end
end.
<u>Примеры</u>
Введите a и b: 123456789 123456796
123456790 15241578997104100 1881676417513891481839000
123456792 15241579490931264 1881676508963366945945088
123456794 15241579984758436 1881676600412845373014184
123456796 15241580478585616 1881676691862326763046336
Введите a и b: 6 20
6 36 216
8 64 512
10 100 1000
12 144 1728
16 256 4096
18 324 5832
20 400 8000
<span>Минимальная единица количества информации называется бит. Это такая информация, которую мы получаем при выборе одного из двух
вариантов. Например, ответ на вопрос "Вы будете чай или кофе?" даёт нам один бит информации.
Также бит - это количество информации, которое можно передать с помощью одной двоичной цифры, которая может принимать два значения: 0 или 1. Чтобы определить информационный объём данных, нужно записать их в двоичном коде и измерить длину полученного сообщения. Это и будет его объём в битах. Например, сообщение 110010100 содержит информацию, равную девяти битам.
Для того, чтобы измерять большие объёмы информации, вводят более крупные единицы. Один байт равен 8 бит. Именно такую ёмкость имеет каждая ячейка памяти современного компьютера.
Следующая по величине единица - килобайт. Он равен 1024 байта. Например, 2 килобайта равны 2048 байт, а 512 байт - половине килобайта.
Ещё более крупная единица - мегабайт (Мбайт). Он равен 1024 Кбайт.</span>