Задание:
Посудина цилиндрической формы заполнены до краев жидкостью, плотность которой d=1200 кг/м (квадратных). Составьте програму, которая высчитывает массужидкости в каждой посудине m=dV=dhS (S=3,14R в квадрате)
Решение:
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. Я не проверіл работоспособность, так что еслі что — піші)
Знаете другой ответ?