22. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду¬ю-щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет - id1754500020200313 от глупыйоладушек 13.03.2020 12:56

Question

Информатика: 22. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду¬ю-щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав-то¬ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё ав¬то¬мо¬би¬лей, округ¬ляя зна¬че¬ния ско¬ро¬сти до целых чисел. Не¬об¬хо¬ди¬мо опре¬де¬лить сред¬нюю за-ре¬ги¬стри¬ро¬ван¬ную ско¬рость всех ав¬то¬мо¬би¬лей. Про¬грам¬ма по¬лу¬ча¬ет на вход число про¬ехав¬ших ав¬то¬мо¬би¬лей N (1 = N = 30), затем ука¬зы¬ва¬ют¬ся их ско¬ро¬сти. Зна¬че¬ние ско¬ро¬сти не может быть мень¬ше 1 и боль¬ше

глупыйоладушек · Accepted Answer

Procedure Four(n:integer; var a:a_type);  {Процедура построения квадрата при n двойной четности: n=4,8,12,16...}  PascalВыделить код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 26 27 28 29 30 31 32 33 34 35 36 37 38 Var i,j,k:integer; p,l:integer; i1,j1,x,y:integer; Begin l:=1; p:=n*n; for i:=1 to n do for j:=1 to n do begin a[i,j]:=l; inc(l) {l:=l+1} end; i:=2; while i =n-2 do begin if i mod 4=0 then j:=4 else j:=2; while j =n-2 do begin for i1:=0 to 1 do for j1:=0 to 1 do...

MOGZ ответил