Переведите числа из двоичной системы счисления в десятичную: 10010011² 1001000²

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

1 -6 февраля. / понедельник.

2 - иа.

3 - число "1"

4 - печка.

5 - клюв.

6 - царь.

7 - марка.

8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1