Согласно рекомендации классного руководителя, должен был выполнить такой объем работы, что на сон времени вообще не остается. поэтому работа должна выполняться не вся . если первая работа занимает 1 объемвремени, вторая -2 объема, третья 4, четвертая 8 и т.д. , то какие работы надо выбрать, что бы выполнить работу объемом n?

{

cin> > x; в средине цикла считываем х

if(x==15) count++; проверяем на равенство с 15, если равно прибавляем к  count один

}

cout< < count; виводим результа

Uses crt; var  a: set of char;   s: string;   j: char;   i,k: integer; begin  writeln('введите строку: '); readln(s); a: =[]; k: =0; for i: =1 to length(s) do  if s[i] in ['а','а','е','е','ё','ё','о','о','у','у','ы','ы','э','э','ю','ю','я','я'] then  begin    a: =a+[s[i]];     k: =k+1;   end; write('гласные буквы, присутствующие в строке: '); for j: ='а' to 'я' do  if j in a then  write(j: 2);   writeln;   write ('количество гласных букв: ',k); end.

Uses crt; var a: integer;     s,r,r2,p: real; begin  write ('введите сторону a: ');   readln (a);   s: =((a*a)*sqrt(3))/4;   r: =(a*sqrt(3))/3;   p: =3*a;   r2: =(a*sqrt(3)/6);   writeln ('площадь равностороннего треугольника: ',s: 1: 2);   writeln ('радиус описанной вокруг равностороннего треугольника окружности  ',r: 1: 2);   writeln (' радиус вписанной в равносторонний треугольник окружности: ',r2: 1: 2);   writeln ('периметр равностороннего треугольника: ',p: 1: 2); end.