Исполнитель - выполняет команды Бумага - носитель информации Звуковая информация - передаёт звук Исполнитель - выполняет команды ?! Бумага - цветная? Звуковая информация - передаёт звук !!
Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
1. Современное решение (быстро, просто и легко) // PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4) end.
Пример 23 11.7 0 12.9 16.7 13 -12 Ср.арифм: 12.8833
2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)
uses Crt; var n:integer; x,a:real; begin a:=0; n:=0; repeat Read(x); if x>=0 then begin n:=n+1; a:=a+x end until x<0; a:=a/n; Writeln('Ср.арифм: ',a:0:4); ReadKey end.
