tera12
Опубликовано 7 лет назад по предмету Информатика от tera12


Сосуды цилиндрической формы (их 6) заполнены до краев жидкостью плотностью d=1200 кг/м3 Составьте программу, которая вычисляет суммарную массу жидкости Требуемые исходные данные (радиус сосуда R, высота столба жидкости h) вводятся массив с клавиатуры, результат выводится на экран.

  1. Ответ
    Ответ дан sinbad7

    var

    i:integer;

    s:real;

    m:array[1..2,1..6] of real;

    begin

    s:=0;

    for i:=1 to 6 do

    begin

    readln(m[1,i]);

    readln(m[2,i]);

    s:=s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

    end;

    writeln(s);

    end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников