Составить прогу в паскале для решения : строитель положил в первый день 100 кирпичей. каждый следующий день он увеличивал количество кирпичей на z процентов от предыдущего дня (z — вещественное, 10< z < 40 по данному z определить, после какого дня суммарное количество кирпичей за все дни превысит 1000, и вывести найденное количество дней d (целое) и суммарное количество кирпичей к (вещественное число).

program stroitel;

 var k, d, z: real;

 begin  

   k:=100;

   d:=1;

   writeln ('Введите процент');

   readln (z);

   repeat

     k:=k+((k/100)*z);

     d:=d+1;

   until k>1000;

   writeln('кирпичей- ',k,'дней- ',d);

 end.

program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
 read(s);
 for i:=1 to 4 do a[i]:=0;
 
 for i:=0 to length(s) do
 begin
    if s[i]=')' then inc(a[1]);
    if s[i]='(' then inc(a[2]);
    if s[i]='!' then inc(a[3]);
    if s[i]='.' then inc(a[4]);
 end;
 
 if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
 if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
 if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
 if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
    write('Unclear');

end.

На Python:

number = input('Введите число в двоичной системе счисления: ')

number_of_zeros = 0

number_of_units = 0

for i in number:

   if i == '0':

       number_of_zeros += 1

   elif i == '1':

       number_of_units += 1

try:

#    print('Введеное число: ' + str(int(number, 2)))

   print('Нулей: ' + str(number_of_zeros))

   print('Единиц: ' + str(number_of_units))

except ValueError:

   print('Error')

Объяснение:

закомментировал строку вывода числа в десятичной системе, если понадобится, можно раскомментировать (убрать #), если совсем не надо, можно удалить.