// Напишите программу, которая в последовательности натуральных чисел определяет количество //чисел, кратных 3. Программа получает на вход количество чисел в //последовательности, а затем сами числа. В последовательности всегда имеется число, //кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. //Программа должна вывести одно число - количество чисел, кратных 3.
Var i,j,x :word; n :integer; begin writeln('Введите количество цифр в последовательности'); Readln (j); if j>100 then //Проверка накличество чисел в последовательности begin writeln ('По условия задачи цифр не должно быть более 100'); writeln ('Введите количесво цифр еще раз'); readln (j); end; for i:=1 to j do begin Writeln ('Введите ',i,' число'); readln (n); if n>300 then //проверка максимального значения числа begin writeln ('Данное число не удовлетворяет условиям задачи (>300'); writeln ('Введите его еще раз'); readln (n); end; n:= n mod 3; if n=0 then x:=x+1; end; Writeln ('Количество чисел, кратных 3:'); Writeln (x); end.
{uses Crt;} {Для древних сред Паскаль, работающих в DOS-режиме, снять комментарии в операторах uses, ClrScr, ReadKey } const n = 10; var a: array[1..n, 1..n] of integer; i, j, min, max: integer; begin Randomize; {ClrScr;} Writeln('Исходный массив'); max:=-100; min:=100; for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(81)+10; Write(a[i,j]:3); if max<a[i,j] then max:=a[i,j] else if min>a[i,j] then min:=a[i,j] end; Writeln end; Writeln('min=',min:2,', max=',max:2); {ReadKey} end.
I = 2 Кбайта = 2 * 1024 * 8 = 16384 бит
k = 4096 символов
I = k * i
Найдём i
i = I / k
i = 16384 / 4096 = 4
N = 2 ** i
N = 2 ** 4
N = 16
ответ: Мощность алфавита 16.