«дележ яблок» условие n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. сколько - id861436120220818 от makslitovchenk 18.08.2022 14:35

Question

Информатика: «дележ яблок» условие n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. сколько яблок достанется каждому школьнику? сколько яблок останется в корзинке? программа получает на вход числа n и k и должна вывести искомое количество яблок (два числа).

makslitovchenk · Accepted Answer

//PascalABC.NET 3.2 сборка 1318 //Вариант по формуле Бине Var   n,fibn:real;   i:integer; begin readln(n); if n =0 then writeln( Не существует чисел Фиббоначи меньше 0 ) else   begin   i:=0;     while fibn n do       begin         fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);         inc(i);       end;    writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);      end;  end. //В лоб Var   sum,n,buf,fib0,fib1:integer;    function fibb(fib0,fib1:integer):integer;   begin...

MOGZ ответил