program raf105;
var
s: string;
i1,i2,i3,i4,i5,o,x: integer;
domok_komod: boolean;
begin
s:= '';
for i1:=1 to 4 do
for i2:=1 to 4 do
for i3:=1 to 4 do
for i4:=1 to 4 do
for i5:=1 to 4 do
begin
case i1 of
1: s[1]:= 'Д';
2: s[1]:= 'К';
3: s[1]:= 'М';
4: s[1]:= 'О';
end;
case i2 of
1: s[2]:= 'Д';
2: s[2]:= 'К';
3: s[2]:= 'М';
4: s[2]:= 'О';
end;
case i3 of
1: s[3]:= 'Д';
2: s[3]:= 'К';
3: s[3]:= 'М';
4: s[3]:= 'О';
end;
case i4 of
1: s[4]:= 'Д';
2: s[4]:= 'К';
3: s[4]:= 'М';
4: s[4]:= 'О';
end;
case i5 of
1: s[5]:= 'Д';
2: s[5]:= 'К';
3: s[5]:= 'М';
4: s[5]:= 'О';
end;
if s = 'ДОМОК'
then domok_komod:= true;
if s = 'КОМОК' //Это не опечатка. Так и должно быть
then domok_komod:= false;
if domok_komod
then o+= 1;
x+=1;
end;
writeln('Слов между ДОМОК и КОМОД (включительно): ',o);
writeln('Всего возможных комбинаций: ',x);
end.
Язык PascalABC
numb=3
mem=0
step=1
summ1=0
summ2=0
summ3=0
while step<14:
mem=numb**step
print(step,mem)
summ3+=mem
if step==10:
mem1=mem
if step<=13:
summ1+=mem
if step==1 or step==3 or step==5 or step==7:
summ2+=mem
if mem==729:
number=step
if summ3==9840:
step0=step
step+=1
print("10й член последовательности равен",mem1,
"\nСумма первых 13 членов последовательности равна",summ1,
"\nСумма А1+А3+А5+А7 равна", summ2,
"\nЭлемент последовательности, равный 729, под номером",number,
"\nКоличество членов прогрессии, которые в сумме дают 9840, равно",step0)
Объяснение:
Условие:В Блокнот (Notepad) введён текст: осень. Нам необходимо вычислить информационный объём данного текста. Помним, что один символ текста занимает 1 байт. Значит, информационный объём данного текста равен: 1байт⋅5=5байтов. Занимаемый объём на флэш - диске: 32 Кбайт, т.к. на флэш-диске используется файловая система FAT16, и этот файл будет занимать один кластер, объём которого равен 32 Кбайт.