1. Информатика
  2. Решить в free pascal.

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

sinocek1 sinocek1    1   06.06.2019 08:30    0

Ответы
gevorpilot gevorpilot  06.07.2020 14:56
 var t,m1,m2,s1,s2,p1,p2:real;
begin
write('введите массы тел');
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.  

Решить в free pascal. необходимо написать текст и алгоритм (схему) программы. буду - : ** заданы мас
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mario160 mario160  14.08.2019 14:10
Чем отличается .zip от .rar, a .rar от .tar ?...
nodirkamolov nodirkamolov  14.08.2019 14:10
Составтье блок схему для решения : каждая бактерия делится на две в течение одной минуты. в начальный момент имеется одна бактерия. сколько их станет через 15 минут?...
luss55 luss55  09.12.2020 11:33
Первый язык программирования высокого уровня. Дать развёрнутый ответ!...
Hasky12 Hasky12  12.11.2020 12:21
Как обнулить километраж на дисплее в пежо 3008??​...
virakudleychuk virakudleychuk  12.11.2020 12:21
Задание номер 1 информатика...
gamegame2006 gamegame2006  12.11.2020 12:21
Дана программа нахождения четных чисел в диапазоне от 3 до 20....
Лубаша Лубаша  12.11.2020 12:21
Постройте таблицу истинности логической функции F=(A+B) × (A+B)​...
daniellarussel1 daniellarussel1  16.08.2019 21:40
вас пользователь вводит три вещественных числа: a,b,c. составить функцию для решения уравнения (a–x)/(b–x)=сx, которая получает введенные числа в качестве параметров. найденные корни...
0661246726 0661246726  11.03.2021 15:56
Доберіть синонім до кожного прикметника.​...
serpgo1 serpgo1  11.03.2021 15:56
Вычислите (предварительно сделав рисунок) площадь фигуры ограниченной линиями : а) y=x³, y=8, x=1 б) y=2 cos x, y=1, x= - π/3, x= π/3 в) y= x² - 2x + 4, y=3, x= -1 г) y = sin x, y=1/2,...

Популярные вопросы