Петя тяжелее кати в 2 раза, вася легче пети на 30 кг, сколько весит

Простая система линейных уравнений
Петя - х, Вася - у
x= 2y
у=х-30

откуда х=60, у=30

30 х 2 = 60 kg
проверка:  Вася весит : 30 кг, значит 60 - 30=30

1) 1 - 7/20 = 20/20 - 7/20 = 13/20 (всего пути) осталось пройти после первого дня. 2) 13/20 • 8/13 = 8/20 (всего пути) пройдено во второй день. 3) 13/20 - 8/20 = 5/20 (всего пути) пройдено в третий день. 4) 7/20 - 5/20 = 2/20 = 1/10 (всего пути) - разница между расстоянием, пройденным в первый и третий день. эта разница и равна 72 км. 5) 72 : 1/10 = 72•10 = 720 (км) - длина всего маршрута. ответ: 720 км. проверим получившийся результат: 1) 720• 7/20 = 36•7 = 252(км) пройдено в 1 день. 2) 720 - 252 = 468 (км) - остаток. 3) 468• 8/13 = 288 (км( пройдено во второй день 4) 468 - 288 = 180 (км) пройдено в третий день 252 - 180 = 72( км) на столько в 1-ый день пройдено больше, чем в третий .верно.

1)
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.

2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;   
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.