Водитель автобуса, в котором к мест, продаёт билеты и по одному пропускает пассажиров в автобус. он должен завершить посадку и уехать либо когда в автобус войдут все желающие, либо когда все места будут заняты. составьте алгоритм действий водителя.

впустить пассажира - продать билет - проверить количество пассажиров, если заполнено:

да - ехать

нет - ожидать следующего пассажира.

если больше желающих ехать пассажиров нет - ехать.

                                                                              есть - продолжать продавать билеты до заполнения автобуса.

и весь алгоритм повторяется сначала.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.