с проектом в скретч Ласточка сидит в своем гнезде и слушает их песенку. По окончании песни ласточка - id1157206320200917 от кузя215 17.09.2020 05:06

Question

Информатика: с проектом в скретч Ласточка сидит в своем гнезде и слушает их песенку. По окончании песни ласточка говорит: «Ласточка встанет, пчелку поймает». С последним словом она вылетает из гнезда и ловит пчел. Пойманный играющий становится ласточкой, игра повторяется. ​

кузя215 · Accepted Answer

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var   a:arr;   skv:real;   i,k,l:integer; procedure print(s:string;a:arr;l:integer); var   i:integer; begin   writeln(s);   write( [ );   for i:=1 to l-1 do write(a[i], , );   writeln(a[l], ] ); end; procedure sort(var a:arr;l:integer); var   i,j,t:integer; begin   for i:=1 to l-1 do     for j:=i...

MOGZ ответил