РЕШИТЕ ПОЖАЛУЙСТА! Посудина цилиндрической формы заполнена до краев…

Question

РЕШИТЕ ПОЖАЛУЙСТА! Посудина цилиндрической формы заполнена до краев водой, d=1200 кг/м 3. Составить программу котораявычисляет:

Answer 1

44

saavv

19 апреля 2023

А) var p,d,h: real; begin readln (h); p: =1200*9,8*h; writeln (p); end. Б) var m,h,r: real; begin readln (h); readln (r); m: =1200*3,14*h*r*r; writeln (m); end; в) необходимы дополнительные условия количество сосудовесли принять количество сосудов за k тогдаvar i,k: integer; m,h,r,S: real; begin readln (k); S: =0; for i: =1 to k do begin readln (h); readln (r); m: =1200*3,14*h*r*r; S: =S+m; end; writeln (S); end.

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

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

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

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

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