1) Создаешь папку BOX
2)В папке BOX папку LETTER
3) В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4)В папке LETTER создаешь папку WORK
5) В папке WORK создаешь текстовый документ april.txt и may.txt
6)В папке LETTER создаешь папку FREND
7) В папке FREND создаешь папку SCHOOL
8) В папке SCHOOL создаешь текстовый документ mary.txt
9) В папке FREND создаешь текстовый документ sport.txt
Для начала разберёмся что к чему. В первом случае говориться что имя начинается с гласной,но перед этим стоит не,значит имя начинается с согласной.Дальшее идёт и(а это следующее условие) последняя буква должна быть не гласной,значит это имя - Михаил
Программа c repeat
program bacteria_1;
var bac,min:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
repeat
bac:= bac*2;
min:= min-1
until min=0;
writeln('Стало ',bac,' бакт.');
end.
Программа с for
program bacteria_2;
var bac,min,i:integer;
begin
bac:=1;
write('Введите количество минут: ');
readln(min);
for i:=1 to min do
begin
bac:= bac*2;
min:= min-1
end;
writeln('Стало ',bac,' бакт.');
end.
<em>Написано на языке PascalABC.NET</em>
21=1*2⁴+0*2³+1*2²+0*2¹+1*2⁰=10101