посчитайте передаточное отношение зубчатых передач изображённых на рисунках.

103

152

Посмотреть ответы 1

Ответы на вопрос:

antanika2000

Информатика

4,5(21 оценок)

program pr; uses crt; var n,m: array[1..15] of integer; i,knp,kmp,kno,kmo: integer; beginknp: =0; kmp: =0; kno: =0; kmo: =0; writeln('mas(n)'); for i: =1 to 15 do begin n[i]: =random(36)-15; write(n[i],'; ') end; writeln; writeln('mas(m)'); for i: =1 to 15 do begin m[i]: =random(36)-15; write(m[i],'; ') end; for i: =1 to 15 do begin if n[i]> =0 then knp: =knp+1 else kno: =kno+1; if m[i]> =0 then kmp: =kmp+1 else kmo: =kmo+1; end; writeln; writeln('кол-во положительных массива n=',knp); writeln('кол-во отрицательных массива n=',kno); writeln('кол-во положительных массива m=',kmp); writeln('кол-во отрицательных массива m=',kmo); readln; end.