50
составить блок схему
дано целое число m> 1.
получить наименьшее целое k, при котором 4*k> m
​

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

uses crt;

var k,m,p: integer;

begin

repeat

write('введите целое число больше 1 m=');

readln(m);

until m> 1;

if m< =4 then

begin

p: =4;

k: =1

end

else

begin

k: =1;

p: =1;

while p< =m do

begin

k: =k+1;

p: =p*4;

end;

k: =k-1;

end;

writeln('k=',k,' 4^',k,'=',p);

end.

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один