Предмет: Информатика,
автор: Ирусик1996анапа
Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг/м3. Составьте программу в Pascal ABC которая найдёт суммарную массу жидкости.
Ответы
Автор ответа:
0
program mss;
uses crt;
var v,m,h,r:real;
begin
clrscr;
writeln('Введите радиус');
readln(r);
writeln('Введите высоту');
readln(h);
v:= 3.14*sqr(r)*h;
m:= 1200*v;
writeln(' ',m:2:2,' кг');
readln;
end.
Интересные вопросы
Предмет: Информатика,
автор: l1zkaaaa
Предмет: Английский язык,
автор: nita5
Предмет: Геометрия,
автор: Аноним
Предмет: Алгебра,
автор: DULANA
Предмет: Химия,
автор: NastyaEremeeva