Program zadacha;
Var t, v1, t1, v2, t2, v: real;
begin ;
Writeln ('введите значения v1, t1, v2, t2');
Readln (v1, t1, v2, t2);
t := (v1*t1+v2*t2)/(v1+v2);
Writeln ('T смеси = ', t);
<span>end.</span>
<font color="red">... (текст)...</font>
Объяснение:
это можно сделать с помощью теоремы Пифагора
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
Program work;
Var chisla:array [1..n] of integer; sum, i:integer;
Begin
For i:=1 to n do
Begin
If chisla [i] mod 2 <>0 then
Sum:=sum+chisla[i];
End;
Writeln (sum);
End.