Программирование паскаль abc ! с дерева собрали некоторое количество яблок. их разделили поровну между детьми, гулявшими во дворе (яблоки не резали), а оставшиеся отдали, чтобы сварить компот. сколько яблок досталось каждому ребенку? сколько пошло на компот?

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var a: =readinteger('яблок было');   var d: =readinteger('детей гуляло');   writeln('каждый получил яблок: ',a div d);   writeln('на компот пошло яблок: ',a mod d) end. тестовое решение: яблок было 37 детей гуляло 7 каждый получил яблок: 5 на компот пошло яблок: 2

"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒

30*2=60 байт

60*8=480 бит

  держи:

 

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end.