Посудина цилиндрической формы заполнены до краев жидкостью…

Question

Посудина цилиндрической формы заполнены до краев жидкостью, плотность которой d=1200 кг/м (квадратных). Составьте програму, которая высчитывает массужидкости в каждой посудине m=dV=dhS (S=3,14R в квадрате)

Answer 1

97

nikon_3

07 марта 2023

vara,b,c,d: real; beginwriteln ('Vvedite ob'em posudi. Esli ne znaete — najmite 0'); read (a); if (a=0) thenbeginwriteln ('Vvedite visotu posudi'); read (b); writeln ('Vvedite radius stakana'); read (c); d: =1200*b*(3,14*c*c); end; if (a>0) then begind: =1200*a; end; writeln ('Massa ',d); end. Я не проверіл работоспособность, так что еслі что — піші)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: