Решить в free pascal. необходимо написать текст - вопрос №2615448 от петро27 15.08.2021 20:11

Question

Информатика: Решить в free pascal. необходимо написать текст и алгоритм (схему) программы. буду - : ** заданы массы некоторых двух тела m1, m2. тела движутся и проходят за время t следующие расстояния s1 и s2 соответственно. вычислить импульсы тел р1 и р2. если р1 р2, вычислить разность этих импульсов. если р1 р2, вычислить сумму этих импульсов. если р1 = р2, вычислить произведение импульсов.

петро27 · Answer

var t,m1,m2,s1,s2,p1,p2:real;beginwrite( введите массы тел );read(m1,m2);write( введите s1 и s2);read(s1,s2);write( введите время );read(t);p1:=m1*(s1/t);p2:=m2*(s2/t);if p1=p2 then write(p1*p2);if p1 p2 then write(p1 - p2);if p1 p2 then write(p1 + p2);end.  ...