var x,y: integer;
begin
readln (x);
if x>0 then y=-5+3*x else
y=2*x-2
writeln (x);
end.
написал примерно, но должно работать.
var a,b,c,s,p:real;
read(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s:0:2);
Вроде так
Ответ:40
Объяснение:1)5000(м):100*10=500 метров он прибавлял каждый день
2)(25000-5000):500=40 дней
Пусть сумма взаимоисключающих ходов = 0. Ход, обратный ходу Z, обозначается как -Z.
Так 1 + 2 = 0 и 3 + 4 = 0, поэтому
-1 = 2,
-2 = 1,
-3 = 4,
-4 = 3
Наша исходная последовательность 3,3,2,3,3,2,4,1 должна стать -1,-4,-2,-3,-3,-2,-3,-3
что по описанным выше правилам = 2,3,1,4,4,1,4,4 - ответ