12:2=6 раз в году рожает крольчих
10 * 6=60 детёнышей в год
Var
a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
k: integer;
begin
readln(k);
writeln(a[k]);
end.
Алфавит - это счетное множество.
Мощностью такого множества называется количество элементов этого множества.
В настоящее время термин килобайт не однозначен. Возьмем прошлое его значение (наверняка сейчас так и есть в школьной программе)
1 килобайт = 1024 байта.
Итого:
У нас 256*2 = 512 символов, которые занимают 1024/16 = 64 байта.
Таким образом один символ занимает 64/512 = 1/8 байта или один бит. (В каждом байте ровно 8 бит).
Один бит информации это нолик или единичка. то есть имеет всего два значения.
Это и есть ответ к задаче:
Мощность алфавита: 2
var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>