М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
JonHenryEdem1
JonHenryEdem1
06.02.2022 10:20 •  Информатика

Pascal abc. составьте программу для нахождения массовой доли вещества в растворе. масса растворенного вещества m₁ и общая масса раствора m вводятся с клавиатуры. указание массовая доля вещества в растворе вычесляется по формуле: ω=m₁/m

👇
Ответ:
nadiakrasavtze
nadiakrasavtze
06.02.2022
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m,m1:real;
  Write('Введите через пробел m, m1 ->'); Read(m,m1);
  Writeln('w=',m1/m)
end.
4,4(49 оценок)
Открыть все ответы
Ответ:
Marrrrrrk
Marrrrrrk
06.02.2022

Есть научное объяснение этому термину, но я лично понимаю под информационной культурой компьютерную грамотность. Обмен информацией посредством различных сайтов в интернете – это информационная культура. Общение в социальных сетях – это, если хотите, тоже информационная культура. Видеоролики на ютубе -есть информационная культура. Это понятие относится не только к интернету. Оно относится и к средствам массовой информации (СМИ) – это то, что показывают нам по телевизору (передачи, новости, фильмы). Радио тоже можно отнести к информационной культуре. Иными словами, всю информацию, которую человек получает каждый день и есть информационная культура.

4,5(56 оценок)
Ответ:
нурперим
нурперим
06.02.2022
Лучше сразу говорить какой язык проходите, а то вдруг общественность догадается неправильно. Если вдруг паскаль, то я бы попробовал написать так:

первая программа  

program pr1 ;
var i , n : integer ;
var s : real ;
begin
n := 0 ;                         { количество найденных чётных чисел }
s := 1 ;                         { получившееся произведение }
   for i := 15 to 30 do
     if i mod 2 = 0 then begin
         n := n + 1 ;
         s := s * i ; 
         end ;
writeln ('kolicestvo chetnyh chisel=' , n , '  proizvedenie=' , s ) ;
end.

(Если я правильно догадался, что добуток значит произведение. Произведение такого кол-ва чисел будет слишком большим для разрядности целого числа, поэтому придётся использовать вещественное, а результат из-за этого получится приближённым). 

вторая

program pr2 ;
var i : integer ;
var k : real ;
begin
  k = 0 ;
  for i := 6 downto 1 do
          k := k + cos ( 1. / i ) ;
  writeln ('K=' , k:10:8 ) ; 
end.

(странный ряд. Чаще дают по-другому, типа 1/cos(x), ну что есть - то есть. Тогда всё ок). 
4,5(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ