Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Налить первый раз в трехлитровый перелить в пяти, налить второй раз в трехлитровый, перелить в пятилитровый.
что останется, то и есть один литр :-) потому что 3+3-5=1
50/x-50/x+40=4
50x+2000-50x/x(x+40)=4
2000=4x^2+160x
-4x^2-160x+2000=0
x^2+40-500=0
x1=-50
x2=10
ответ 10 км/ч