Блин ! петя, катя и сережа делают из бумаги журавликов. вместе они сделали s журавликов. сколько журавликов сделал каждый ребенок, если известно, что петя и сережа сделали одинаковое количество журавликов, а катя сделала в два раза больше журавликов, чем петя и сережа вместе? составить программу

Var     s: integer;     x: real; begin repeat   begin   write('сколько всего журавликов сделали: ');   readln(s);   if s mod 6< > 0 then writeln('они не могли сделать столько, противоречит условию')   end   until s mod 6=0; x: =s/6; writeln('петя и сережа сделали каждый по ',x); writeln('катя сделала ',4*x) end.

Вверх и вниз по разным тропинкам: по каждой тропинке можно подняться и спуститься :   3*3 = 9 маршрутов вверх и вниз по разным тропинкам: тропинок 3, маршрутов по ним   2, всего 3*2 =6 маршрутов два маршрута: по первой поднялись, спустились по второй                             по первой поднялись, спустились по третьей ещё два:   по второй поднялись, спустились по первой                   по второй поднялись, спустились по третьей ещё  два: по третьей поднялись, спустились по первой                 по третьей  поднялись, спустились по второй

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin   var x: =0.7;   var eps: =1e-4;   var a: =x*x/2;   var chx: =1+a;   var n: =1;   while a> =eps do begin       writeln('n=',n,'    ch(x)=',chx);       inc(n);       a: =a*x*x/((2*n)*(2*n-1));       chx: =chx+a       end;   writeln('');     writeln('n=',n,'    ch(x)=',chx) end. результат выполнения программы: n=1    ch(x)=1.245 n=2    ch(x)=1.25500416666667 n=3    ch(x)=1.25516756805556 n=4    ch(x)=1.25516899781771